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SECTION  I 


INTRODUCTION 

This  report,  in  essence,  is  a  continuation  of  Ref.  1.  In  this 
reference,  the  concept  of  dynamic  stability  for  suddenly  loaded  systems 
was  discussed  in  detail,  including  criteria  and  estimates,  on  the  basis 
of  the  energy  approach.  Moreover,  they  were  demonstrated  through  simple 
mechanical  models,  with  flnite-degrees-of- freedom.  These  models  are 
characteristic  of  imperfection  sensitive  systems,  and  under  static  condi¬ 
tions  they  are  subject  to  either  limit-point  instability  or  unstable 
bifurcational  instability  (in  both  cases,  violent  buckling).  The  suddenly 
applied  loads  are  of  constant  magnitude  and,  in  general,  of  finite  duration. 
The  extreme  cases  of  ideal  impulse  and  constant  load  of  infinite  duration 
were  discussed  and  presented  separately,  as  well,  for  two  reasons: 

(a)  the  concepts  for  these  two  cases  are  simpler  to  present  and  (b)  his¬ 
torically  these  extreme  cases  were  treated  extensively  by  the  initial 
investigators  of  dynamic  stability  of  suddenly-loaded  structures  [2-13]. 

The  methodologies  employed  by  these  investigators  can  be  classified  into 
three  groups:  (i)  equations  of  motion  approach  (Budiansky-Roth  [3]), 

(li)  the  phase  plane-total  energy  approach  (Hsu  [6]),  and  (iii)  the  poten¬ 
tial  energy  approach  (Hof f-Slmitses  C2,ll]). 

The  first  approach  (a)  has  had  wide  acceptance,  because  it  is  well 
suited  for  computer-type  solutions.  The  equations  of  motion  are  solved 
for  various  levels  of  the  load  parameter.  For  small  levels,  the  solution 
is  simply  oscillatory;  as  the  load  level  increases,  the  motion  changes 
to  distinctly  large  amplitude  (from  the  initial  undisturbed  position) 
oscillations.  The  load  level  at  which  this  change  occurs  is  termed 
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critical  dynamic  load.  A  great  advantage  of  this  approach  is  that  it 
can  estimate  the  critical  conditicxis  accurately,  and  the  loading  can  be, 
in  general,  time-dependent.  Of  course,  the  obvious  disadvantage  is  that 
it  is  extremely  difficult  and  it  requires  a  large  amount  of  computer  time 
to  solve  the  equations  of  motion  for  various  levels  of  the  applied  load 
(constant  of  infinite  duration).  The  difficulty  and  the  required  time 
further  increase  as  the  load  beccanes  time-dependent . 

The  other  two  approaches  can  estimate  conditions  under  which  the 
motion  will  remain  oscillatory  about  the  near  static  equilibrium  position 
(lower  bound  on  critical  suddenly  applied  load)  or  conditions  under  which 
the  motion  will  definitely  be  of  large  amplitude  (upper  bound).  Hsu 
termed  the  former  a  sufficiency  condition  for  stability  and  the  latter 
a  sufficiency  condition  for  Instability.  Slmitses  referred  to  these  two 
bounds  as  critical  loads  and  he  termed  the  former  minimum  possible  critical 
load  (MPCL)  and  the  latter  minimum  guaranteed  critical  load  (MGCL) .  In 
many  cases  considered,  the  static  critical  load  is  coincident  with  the 
upper  bound.  Needless  to  say,  that  the  emphasis  of  approaches  (b)  and 
(c)  is  to  estimate  the  lower  bound  and  use  this  as  a  basis  for  design 
(whenever  applicable). 

This  report  deals  primarily  with  extension  of  the  energy  concepts 
discussed  in  Ref.  1,  and  application  of  the  related  criteria  to  a  number 
of  practical  structural  configurations,  such  as  frames,  imperfect  cylin¬ 
drical  shells  (of  stiffened  and  unstiffened  construction)  and  shallow 
arches.  These  systems  also  are  subject  to  violent  buckling  under  static 
application  of  the  loads. 

Moreover,  in  the  last  chapter  of  the  present  report,  the  developed 
concepts  are  applied  to  structural  systems  which  are  not  subject  to 


violent  buckling  under  quaslstatlc  application  of  the  loads.  The  ensuing 
discussion  provides  the  necessary  clarifications. 

All  structural  configurations,  when  acted  upon  by  quasi- static  loads, 
respond  in  a  manner  described  In  one  of  the  five  figures.  Figs.  1.1  - 
1.5.  These  figures  characterize  equilibrium  positions  (structural  response) 
as  plots  of  a  load  parameter,  P,  versus  some  characteristic  displacement, 

@.  The  solid  curves  denote  the  response  of  systems  which  are  free  of 
imperfections  and  the  dashed- line  curves  denote  the  response  of  the 
corresponding  imperfect  configuration. 

Fig.  1.1  shows  the  response  of  such  structural  elements  as  columns, 
plates,  and  unbraced  portal  frames.  The  perfect  configuration  Is  subject 
to  blfurcatlonal  buckling,  while  the  Imperfect  configuration  Is  character¬ 
ized  by  stable  equilibrium  (unique),  for  elastic  material  behavior. 

Fig.  1.2  typifies  the  response  of  some  simple  trusses  and  two-bar 
frames.  The  perfect  configuration  is  subject  to  blfurcatlonal  buckling, 
but  smooth  (stable  branch)  l.i  one  direction  of  the  response  and  violent 
(unstable  branch)  In  the  other.  Correspondingly  the  response  of  the 
imperfect  configuration  Is  characterized  by  stable  equilibrium  (and 
unique)  for  increasing  load  in  one  direction,  while  in  the  other,  the 
system  Is  subject  to  limit  point  Instability. 

Fig.  1.3  typifies  the  response  of  troublesome  structural  configura¬ 
tions  such  as  cylindrical  shells  (especially  under  uniform  axial  compression 
and  of  isotropic  construction),  pressure- loaded  spherical  shells  and  some 
simple  two-bar  frames.  These  systems  are  imperfection-sensitive  systems 
and  are  subject  to  violent  buckling  under  static  loading. 

A  large  class  of  structural  elements  is  subject  to  limit  point 
instability.  In  some  cases,  unstable  bifu -cation  is  present  in  addition 
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to  the  limit  point,  'llie  response  of  such  systems  is  shown  on  Fig.  1.4. 

TWO  structural  elements  that  behave  in  this  manner  are  the  shallow  spherical 
cap  and  the  low  arch.  Both  elements  have  been  used  extensively. 

Finally,  there  is  a  very  large  class  of  structural  elements,  which 
are  always  in  stable  equilibrium  for  elastic  behavior  and  for  all  levels 
of  the  applied  loads.  These  systems  are  not  subject  to  instability  under 
static  conditions.  Typical  members  of  this  class  are  beams,  and  transversely 
loaded  plates.  For  this  class  of  structural  elements.  Fig.  1.5  shows  a 
typical  load-displacement  curve. 

The  concept  of  dynamic  stability  as  developed  in  Ref.  1  and  as  dis¬ 
cussed  in  Refs.  3  and  6,  was  always  with  reference  to  systems  which  under 
static  loading  are  subject  to  violent  buckling.  This  implies  that  dynamic 
buckling  has  been  discussed  for  systems  with  static  behavior  shown  in 
Figs.  1.2  (to  the  left),  1.3  and  1.4. 

In  developing  concepts  and  the  related  criteria  and  estimates  for 
dynamic  buckling  (see  Ref.  1),  it  was  observed  that,  even  for  systems 
whl''h  are  subject  to  violent  (static)  buckling,  critical  dynamic  loads 
can  be  associated  with  limitations  in  deflectional  response  rather  than 
escaping  motion  through  a  static  unstable  point.  This  is  especially 
applicable  to  the  design  of  structural  members  and  configurations,  which 
are  deflection  limited.  From  this  point  of  view  then,  the  concept  of 
dynamic  stability  can  be  extended  to  all  structural  systems  especially 
those  of  Figs.  1.1  (imperfect),  1.2  (imperfect  and  to  the  right),  and 
1.5.  Note  that  from  this  point  of  view  there  is  no  question  of  dynamic 
instability,  but  strictly  a  question  of  dynamic  response  in  a  limited 
deflection  space. 

This  extension  of  the  concept  will  be  amplified  in  Section  5.  The 
examples  and  applications  chosen  clarify  the  extension.  Moreover,  the 
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problem  of  a  suddenly  loaded  imperfect  column  is  presented,  primarily 
because  it  represents  the  only  system,  other  than  those  which  are  subject 
to  violent  (static)  buckling,  which  has  received  some  attention  in  the 
open  literature. 


Fig.  1.1.  Bifurcated  Equilibrium  Paths  with 
Stable  Branching. 


Fig.  1.3.  Bifurcated  Equilibrium  Paths  Fig.  1.2.  Bifurcated  Equilibrium  Paths 

with  Unstable  Branching.  with  Stable  and  Unstable  Branches 


SECTION  II 


SIMPLE  TWO- MR  FRAMES  UNDER  SUDDENLY  APPLIED  LOADS 

The  Stability  Criterion 

Consider  the  simple  two-bar  frame  shown  of  Fig.  2.1.  The  two  bars 
are  of  the  same  structural  geometry  (length  I,  corss-sectlonal  area  A, 
second  moment  of  area  I,  and  Young's  modulus  E) .  The  vertical  bar  is 
supported  by  an  Immovable  hinge,  while  the  horizontal  bar  Is  supported 
by  a  hinge  with  three  variations:  (a)  Immovable  (Model  A),  (b)  movable 
in  a  vertical  direction  (Model  B) ,  and  (c)  movable  in  a  horizontal  direc¬ 
tion  (Model  C) .  The  external  load,  P(t)  =  H(t)P  [H(t)  is  the  heavislde 
function],  is  applied  vertically  with  an  eccentricity  e,  and  it  represents 
a  constant  force,  P,  suddenly  applied,  with  infinite  duration.  The 
transverse  and  axial  displacement  components  are  Wj^(x,t)  and  §(x,t), 
respectively. 

By  employing  Hamilton's  principle,  one  can  obtain  the  equations  of 
motion  for  the  system. 

^2 

5  J  (T  -  U.J,)  dt  -  0  (2.1) 


where  the  functionals  U.^  (total  potential)  and  T  (kinetic  energy) 
are  given  by 
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The  kinematic  continuity  conditions  at  the  joint  are 


Wj(A,t)  =  =  -|j(£,t); 


Wi^^U.t) 
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2,x 


(i,t) 


(2.5) 


The  natural  boundary  conditions  at  the  joint  are  obtained  from  the 
variational  problem  and  by  employing  Eqs.  (2.5),  which  are  independent  of 
this  formulation.  These  natural  boundary  (force)  conditions  are: 
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(2.6) 


Finally,  the  support  conditions  for  the  three  models  (A,B  and  C)  are 
listed  below,  as  coimon  to  both  models  and  those,  which  are  different 
Conmon 

§j(0,t)  *  W^(0,t)  -  W^^^(0,t)  -  „j(0,t)  -  0  (2.7) 

Model  A 

?2(0,t)  -  0,  W2(0,t)  -  0  (2.8) 


9 


Model  B 


SjCO.t)  -  0,  El  «2,,„(0.t)  -  Ae[5j  „<0,t)  +  i  w^_,(0.t)]  -  0  (2.9) 

Model  C 

W2(0.t)  =  2 

The  Initial  conditions  must  reflect  the  fact  that,  the  system  is  at 
rest  initially  (t  -  0). 

§^(x,0)  -  w^(x,0)  -  0  (2.11) 

5i  ,.(x.0)  -  j.(x,0)  -  0  i  -  1,2 

The  solution  of  the  equations  of  motion,  Eqs.  (2.4),  a  system  of 
coupled  nonlinear  partial  differential  equations,  subject  to  the  auxiliary, 
Eqs.  (2.5)  -  (2.7)  and  (2.8),  or  (2.9),  or  (2.10),  and  initial  conditions, 
Eqs.  (2.11),  is,  at  best,  extremely  difficult.  Furthermore,  even  if  the 
solution  is  possible,  for  various  magnitudes  of  the  applied  force,  F,  of 
the  eccentricity,  e,  and  slenderness  ratio,  a  criterion  for  stability 
is  still  missing.  One  possibility,  here,  is  to  employ  the  criterion  of 
Budiansky  and  Roth  [3],  %rhich,  in  this  particular  case,  requires  a  wise 
choice  for  a  characteristic  displacement  response.  Another  possibility, 
of  course,  is  to  employ  this  criterion  in  conjunction  with  an  approximate 
solution  obtained  on  the  basis  of  either  direct  variational  methods  or 
methods  of  weighted  residuals  [14].  In  this  latter  approach,  there  is 
an  uncertainty  with  both  the  direction  and  the  estimation  of  the  error 
involved  in  the  approximation. 
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In  the  light  of  the  above  difficulties,  a  simpler  approach,  giving 
accurate  results  for  design  purposes,  is  needed.  The  analysis,  described 
and  employed  herein,  provides  an  extension  of  the  energy  approach  as 
developed  in  Ref.  1.  This  extension  is  described  in  the  ensuing  para¬ 
graphs  and,  in  so  doing,  criteria  and  estimates  are  clearly  established. 

First,  by  virtue  of  the  initial  conditions,  Eqs.  (2.11),  both  the 
kinetic  energy,  T,  and  the  total  potential,  U^,  are  zero  at  t  =  0.  From 
the  law  of  conservation  of  energy,  for  this  undamped  conservative  system, 
initially  stress  free,  the  total  energy  (Hamiltonian)  is  constant  for 
t  >  0. 

SL^i’  "i  ’  ^  ;  ^i  ''i  j  "  ^ 


where  U.j,  and  T  are  given  by  Eqs.  (2.2)  and  (2.3),  respectively,  and  C 
is  a  known  constant  (this  constant  can  be  made  zero  by  properly  defining 

U.J,)  . 

Since  T  is  positive  definite,  Eq.  (2.3),  for  all  kinematically 
admissible  trajectories,  then  motion  is  possible  only  when  is  non¬ 
positive,  or 

Ut  w^  ;  pj  s  0  (2.13) 

Next,  let  us  assume  that,  at  some  level  of  the  applied  load  P  ■  P, 
the  ensuing  motion  is  bounded,  for  all  kinematically  admissible  trajec¬ 
tories.  Then,  for  each  possible  trajectory,  regardless  of  whether  it 
corresponds  to  a  true  trajectory  of  motion  or  not,  there  is  a  set  of 
displacement  functions  of  position  l_|j(x),  Wj^(x)j,  i  ■  1,2  (because  of 
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bounded  motion)  such  that 


Uj  I  5^.  Wj  ;  Pj  -  0  (2.14) 

The  collection  of  all  such  sets,  corresponding  to  all  conceivable, 
kinematically  admissible  trajectories,  forms  a  boundary,  which  Is  char¬ 
acterized  by  U,^  -  0  and  It  separates  the  region  of  <  0  trom  the 
region  of  >0.  This  boundary  Is  dependent  upon  the  level  of  the 
applied  load,  P.  Because  of  Eq.  (2.13),  It  has  been  established  that 
motion  can  only  take  place  In  the  region  characterized  by  <  0.  At 
this  point,  note  that,  regardless  of  the  trajectory,  the  velocities 
(?•  w.  )  are  zero  and  a  change  in  the  motion  takes  place,  whenever 
the  system  reaches  the  boundary  described  above.  Furthermore,  the 
region  characterized  by  <  0  must  contain  at  least  one  relative  min¬ 
imum  point  for  U^,  regardless  of  trajectory  and  time.  It  may  contain 
more  than  one  relative  minimum  and  some  other  stationary  points.  These 
stationary  points  are  characterized  by  sets  of  displacement  magnitudes 
and  shapes,  which,  by  definition,  correspond  to  static  equilibrium  posi¬ 
tions  for  the  particular  value  of  the  applied  load,  P. 

By  having  set,  thusly,  the  stage,  we  can  now  define  "unbuckled" 
motion  (see  also  [l]).  If  the  bounded  region  (U^  <  0)  contains  only 
one  stationary  point  (a  minimum)  then  the  motion  for  this  P  is  called 
"unbuckled".  The  physical  Interpretation  of  "unbuckled"  motion  corresponds 
to  the  system  performing  nonlinear  oscillations  about  the  corresponding 
near  stable  static  equilibrium  position.  This  is  exactly  the  case  for 
small  levels  of  the  suddenly  applied  load.  The  only  way  the  motion  can 
become  "buckled"  (unbounded  in  the  sense  described  above)  is  if  the 


r*  *  T 

boundary  characterized  by  the  set  of  ,  w^(x)  j  contains  an  un¬ 

stable  static  equilibrium  position  for  the  corresponding  value  of  the 
applied  load.  This  value  of  the  Load  represents  an  upper  bound  of 
all  loads  for  which  the  motion  remains  "unbuckled",  and  it  is  called, 
herein,  critical  dynamic  load.  Incidentally,  this  level  of  the  load 
corresponds  to  Hsu's  sufficiency  condition  for  stability  and  Simltses' 
minimum  possible  critical  load  (MPCL).  Note  that  when  damping  is 
present,  for  loads  smaller  than  this  critical  dynamic  load,  the  system 
is  asymptotically  stable,  because  it  will  eventually  come  to  rest  at 
the  near  static  equilibrium  position. 

For  the  frame  problems,  under  consideration,  one  needs  only  solve 
the  corresponding  static  problem  and  compute  the  value  of  the  total 
potential  U^,  at  every  static  unstable  equilibrium  point.  This  static 
solution  is  outlined  below  and  it  is  given  in  detail  in  [15,  16].  By 
dropping  the  Inertia  terms,  the  equations  of  motion,  Eqs.  (2.4),  become 
static  equilibrium  equations.  The  general  solutions,  obtained  from 
these  equations,  for  the  four  displacement  components,  w^^,  (  i  =  1,  2), 

are  computed  in  terms  of  simple  spatial  functions  and  twelve  constants. 

Use  of  the  three  kinematic  continuity  conditions  Eqs.  (2.5),  the  three 
natural  boundary  conditions  at  the  Joint,  Eqs.  (2.6)  and  the  six  support 
conditions,  Eqs.  (2.7)  -  (2.11),  yields  a  system  of  twelve  equations 
in  the  twelve  constants.  The  load  parameter,  the  eccentricity  and  the 
slenderness  ratio  appear  also  in  these  equations.  Some  of  these  constants 
are  zero  and  the  remaining  ones,  except  for  two,  appear  in  a  linear 
sense.  Elimination  of  these  particular  constants  finally  yields  a  system 
of,  at  most,  two  non-linear  equations  that  relate  two  constants  to  the 
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given  parameters.  A  methodology  is  outlined  in  [IS]  for  solving  these 
two  nonlinear  equations. 

It  should  be  mentioned  here  that  the  ttio  constants  appearing  in 
the  nonlinear  equations  are  measures  of  the  axial  force  In  the  two 
bars  (k^)  [the  complete  solutions  are  given  In  the  next  section).  The 
given  parameters  are  listed  below  In  nondlmenslonallzed  form 


2 

2  PT, 
~  El  ’ 


(2.15) 


where  p 


2 


I/A. 


Thus,  the  total  potential,  U.j,, 

2 

expressed  solely  In  terms  of  k^,  b  , 

Ut  - 


for  the  static  problem  may  be 
e  and  X,  l.e. 

.  e,  X) 


(2.16) 


For  any  given  geometry  (e,  X),  static  equilibrium  positions  are 

2 

shown  as  plots  of  load  parameter,  0  ,  versus  joint  rotations  (character* 

Istic  displacement  *  see  Fig.  2,2>.At  every  point  of  this  curve,  the 

2 

value  of  the  total  potential  Is  computed.  The  value  of  0  at  which  U.^ 

changes  from  negative  to  positive  corresponds  to  the  dynamic  critical  load, 

2  2 
0  ^  •  Another  possible  procedure  for  finding  0^^  Is  the  simultaneous 

solution  of  the  two  nonlinear  equilibrium  equations 


and 


(2.17) 


U 

T 


0 


(2.18) 
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Fig.  2.2.  Typical  Load  versus  Characteristic  Displacement  (Joint 
Rotation)  Curve. 
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subject  to  the  condition  that  the  static  equilibrium  position,  at  which 
»  0,  is  unstable,  or 


(2.19) 


Note  that  Eqs.  (2.19)  imply  chat,  the  conditions  for  static  stability 
are  violated. 

This  alternate  procedure  needs  special  attention,  because  it  can 
easily  yield  physically  unacceptable  solutions.  These  unacceptable  solu¬ 
tions  arise  from  Che  nonlinearity  of  Che  problem  and  do  not  belong  on 
the  load-displacement  curve  shown  on  Fig.  2.2  (physically  unacceptable). 

The  numerical  results,  presented  herein,  are  obtained  from  the 
first  solution,  although  Che  alternate  solution  was  employed  for  spot 
checking.  Data  are  generated  on  the  Georgia  Tech  high  speed  digital 
computer  CDC-Cyber-70,  Model  74-28. 


Summary  of  Static  Solution  Expressions 

In  addition  to  Che  nondimens ionalized  parameters  given  by  Eqs. 
(2.15),  Che  following  nondimens ionalized  parameters  are  also  introduced. 


where  S^  is  the  magnitude  of  Che  compressive  force  in  the  1th  bar. 


16 


With  these  parameters  the  solution  to  the  corresponding  static 


of  the  following  two  nonlinear  equations 


8lnkj^+  k^^  +  B^d)  +  -  0 

X 

A21  8lnk2+  A23  -  B^(l)  -  =  0 


(2.23) 


The  expressions  for  U.j,  and  joint  rotation,  <p,  are 
4  ^  4  2  ,  4  ”  '  ' 


4  4  2  4  1  L  f  \ 

+  ^2  hlh  (  ^l\  ^21*'l  ■(^"  “2k  ) 

s  ,2^2  ■  2k,  r  ~r~  2 


»-v.a  «.2  .  "23''  ”  '■“21  “■'■“'^2'^  “23^  J 


k*  cos  k-  +  A*^)  “  (^/>i  sin  k.  +  A.. 


9  =  V?!  ^(1)  =  cosl^  +  A 
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(2.24) 

(2.25) 


Model  B 


3  i(a:> 


-  -r  X  -  B/X) 


W^(X)  *  A^j^  sink^X  +  A^jX 


(2.26) 


S:  =  -  -2  X  -  B,(X) 


W2(X)  “  A2j^  8ink2X  +  A24 


where 


2  2 
kTA: 


1  '  2  1  /  sin  2k.X. 

Bi(X)  -  2  Aj^X  +  2AjjAj3  +  2  “Ik  )- 


B2(X) 


2  2 

k-A,.  ,  sin  2k,X. 

-¥^  (*  sr:^) 
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(2.27) 


A,,  = 


2-  4  2 

3  ek2  coskj  +  k2  sink2/kj^ 


11  k^k2(kj^  slnkj^  cosk2  +  k2  cosk^^  sink2) 


2-  2 
3  ekj^  coskj^  -  k2  sink^ 


21  k^k2(kj^  sink^  cosk2  +  k2  cosk^  sink2) 


*  1  2i,  2  ,2  q2 

=  ■'^2'^1  ’  ^1  ® 


‘24  •  “i»>  ■;t 


-  A2j^  sink2 


2  2  2 
and  k2(since  for  this  case  kj^  =  3  )  for  every  value  of  the  applied  load,  3  , 

and  structural  geometry,  e,  X,  can  be  found  from  the  solution  of  the  following 

nonlinear  equation; 


,  .  ,2,  sin  2k 

I  A  —  !  1  + - - 

2  21i  21  k\  2k 


2 

)  -  sink2  J  ''2(\  -  1/  =  0  (2.28) 


The  expressions  for  and  joint  rotation,  cp,  are 


4  4  2  4  2  4 

k^  +  k„  A,  ,k,  f  sin  2k, ^  A,,k„ 

,2  2  2k,  /  2  ' 


sin  2k 


2\ 


2k2  / 


(2.29) 


+  23  ®(^21*^2  "  ^^21  ®^"^2  ^21? 


^  “  ^11^1  ^ 
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(2.30) 


Model  C 


*—  1 


X  -  Bj^(X)  ; 


12  ~  ^25  ”  ®2(^^ 


;  W2  =  A2jX-"  +  A23X  (2.31) 
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where 


2  2 

k,A: 


S^(X)  «  (x  + 


sin  2kj^X^ 

liT  , 


Bj(X)  -  i  (I  -f  +  A23X) 


2  2  - 
+  e^(e  -  1) 


11  2 

k^  sin  kj^ 


1,2  o2 

"1  ■  ® 
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5  9  -  ?  9 

k^  +  0^(e  -  1)  0^  -  k^ 

*23 - iT -  *1  +  - — 


A2J  ^11  ’ 


(2.32) 


and  k|^  is  the  solution  of  the  following  nonlinear  equation  (for  any  B  ,  e, 


and  X ) ; 


-  kj  kj  +  B^(i  -  1)  kf 

3  ■'■  k^  '  X^ 


3  A  9^;  -  1)  -2  .i.  2A,,  _ 

4  L  kj^  sinkj^  J  2kj^  / 


Finally, 


(2.33) 


4  2  4 

k.  A  k  .  sin  2k  .  , 


+  2B^,  e  (3A2^  +  A23)  -  (A2j  +  A23)j 


(2.34) 
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9  =  cosk^ 


(2.35) 


Numerical  Results  and  Discussion 

On  the  basis  of  the  criterion  established,  critical  loads  are 
computed  for  all  three  frames  and  for  a  large  practical  range  of  load 
eccentricities  (-0.01  s  e  ^  0.01)  and  of  slenderness  ratios  (X  =  40,  80, 
<») .  The  results  are  presented  graphically  in  Figs.  2.3  -  2.5,  and  dis¬ 
cussed  separately  for  each  frame  (Model). 

Model  A:  The  results  for  this  model  are  presented  graphically  on 
Fig.  2.3  and  part  of  them  in  a  tabular  form  on  Table  2.1,  It  is 
observed  that,  as  in  the  static  case,  there  is  a  small  positive  eccen¬ 
tricity,  such  that  for  e  ^  e^^  there  is  dynamic  instability,  while 

for  e  >  e  there  is  not.  This  e  is  X-dependent  and  identical  to  the 
cr  cr 

corresponding  static  case.  For  all  X-values  considered,  except  X 

2  2  -  - 

the  difference  between  8  and  8  is  the  largest  at  e  ==  e  and  it 

cr_  cr  „  ®  cr 

D  St 

diminishes  as  e  increases  negatively.  On  the  contrary,  for  X  *•  »  this 
effect  is  reversed  and  more  specifically,  the  difference  is  close  to 
zero  at  e  =  e^^  and  it  increases  as  e  increases  negatively.  In  addi¬ 
tion,  eccentricity  has  a  destabilizing  effect  regardless  of  the  value 
of  the  slenderness  ratio.  This  effect  is  less  pronounced  for  the  static 
case. 

Finally,  dynamic  instability,  as  defined  herein,  takes  place  with 

a  trajectory  corresponding  to  a  positive  joint  rotation  cp.  Because 

of  this,  of  course,  the  compressive  force  in  the  vertical  bar,  k^^,  is 

2 

higher  than  the  applied  load,  8  ,  at  the  Instant  of  possible  "buckled" 
motion  (trajectory  possibly  passing  through  the  unstable  static  equi¬ 
librium  point) . 
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Note  that  the  experimental  results  of  Thompson  (\  =  1275  [17] 
agree  very  well  with  the  X  -*  <»  theoretical  prediction.  The  largest 
discrepancy  between  theory  and  experiment  is  approximately  1.5%. 

Model  B:  This  is  the  only  model,  which  exhibits  bifurcational 
buckling  (through  an  unstable  branch)  under  static  application  of  the 
load.  The  results  are  presented  graphically  in  Fig.  2.4  and  part  of 
them  in  tabular  form  on  Table  2.1. 

It  is  seen  from  Fig.  2.4  that  the  effect  of  slenderness  on  the 
dynamic  critical  load  is  appreciable,  while  its  effect  on  the  static 
critical  load  (limit  point  load)  is  negligible.  In  addition,  for  all 
X,  except  X  aa,  the  difference  between  the  static  and  d3mamic  critical 
loads  is  the  largest  at  e  =  0  and  decreases  as  [e]  increases.  Further¬ 
more  ,  at  e  =  0  and  for  a  given  X ,  except  \  a>,  there  are  two  dynamic 

critical  loads,  one  corresponding  to  a  negative  rotation cp  trajectory 
(the  lower)  and  one  corresponding  to  a  positive  cp  trajectory  (the  upper) . 
Definitely  the  system,  for  e  =  0,  buckles  in  the  mode  associated  with 
the  lower  load  and  it  should  be  designed  for  this  lower  dynamic  critical 
load.  But  the  results  Indicate  that  a  small  positive  eccentricity,  in 
this  case,  has  a  stabilizing  effect,  because  it  forces  the  system  to 
d3mamically  buckle  through  a  positive  rotation  cp  trajectory  and  there¬ 
fore  it  can  carry  a  higher  load.  In  general,  though,  eccentricity  has 
a  destabilizing  effect.  This  means  that  as  |e|  increases  the  dynamic 
critical  load  decreases. 

Model  C:  The  results  for  this  model  are  presented  graphically  in 
Fig.  2.5  and  part  of  them  in  tabular  form  on  Table  2.1.  The  observa- 
tion.s  for  this  model  are  very  similar  to  those  corresponding  to  model  A. 
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Tabled 


:  Critical  Conditions  for  X  °  80 


Model 

c 

“l 

)( 

2 

8^ 

"d  "^t 

0.00047288 

13.350303 

0.701563 

12.7054 

0.915 

0.0000 

13.319785 

0.709696 

12.6625 

-0.0013 

13.239899 

0.732511 

12.5486 

A 

-0.0025 

13.170965 

0.753974 

12.4483 

mm 

-0.0050 

13.040181 

0.799120 

12.2528 

mm 

-0.0070 

12.946092 

0.834976 

12.1081 

-0.0100 

12.819032 

0.887372 

11.9077 

mm 

0 

8.77116 

.37756 

8.77116 

0.8887058 

8.37378 

.42278 

8.37378 

0.9010594 

7.99803 

.46167 

7.99803 

0.8986994 

.008 

7.31164 

.52393 

7.31164 

0.8867721 

.010 

7.00021 

.54887 

7.00021 

0.8804564 

B 

0 

9.24600 

.31035 

9.24600 

0.9368172 

-  .002 

9.05455 

.34513 

9.05455 

0.9554539 

-  .004 

8.88447 

.37852 

8.88447 

0.9606390 

-  .008 

8.59210 

.43900 

8.59210 

0.9592319 

-  .010 

8.46421 

.46605 

8.4642’. 

0.9558657 

0.0004  722 

1.37022 

n 

1 .27144 

0.895 

0.0000 

1.36547 

0 

) .26421 

0.921 

-O.OOlj 

1.35332 

0 

1.24523 

0.939 

C 

-0.0025 

1.34319 

0 

1  .22885 

0.946 

-0.0050 

1.32475 

0 

1  .19771 

0.953 

-0.0075 

1.30910 

1  .K»99,‘- 

0.955 

-0.0100 

1.29550 

0 

1 . 14492 

0.956 
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Kff.tl  of  I  vccntririiy ,  r,  .itnl  V' I  t'ii(lorncii!i  ratio,  X, 

2 

ll;<'  Static  and  Dynnmi*  Critical  l.nads ,  P  ,  (Model  A) 


In  all  three  models,  when  the  alternate  method  was  employed,  Eqs. 
(2.17)  and  (2.19),  in  some  cases,  the  results  were  physically  unacceptable. 
This  is  only  mentioned  here  as  a  word  of  caution  to  those  who  may  attempt 
to  use  this  particular  procedure  for  estimating  dynamic  critical  loads. 

For  the  systems  Investigated  herein,  a  less  restrictive  definition,  re¬ 
lated  to  the  boundedness  of  the  motion,  may  be  employed,  which  is:  an 
unbounded  motion  takes  place  for  that  magnitude  of  the  applied  load  for 
which  assumes  always  negative  values  no  matter  what  combination  of 
kinematically  admissible  functions  w^,  can  be  assigned;  Otherwise 
the  motion  is  bounded. 
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SECTION  III 


STIFFENED  AND  UNSTIFFENED,  IMPERFECT  CYLINDRICAL  SHELLS 
UNDER  SUDDENLY  APPLIED  LOADS . 

There  are  a  few  publications  dealing  with  dynamic  buckling  of  shell 
configurations.  Some  of  them  deal  with  shallow  spherical  caps  (see  ^12] 
for  a  fairly  complete  review)  and  even  fewer  with  cylindrical  shells 
[4,  18-22],  most  of  which  are  based  on  the  Budiansky-Roth  approach.  In 
this  chapter,  the  necessary  criterion  and  the  related  solution  methodology 
are  presented,  based  on  the  energy  approach  [1]. 

The  Stability  Criterion 

Consider  a  stiffened,  geometrically  imperfect,  circular  cylindrical 
shell,  (see  Fig.  3.1),  supported  in  various  ways  (all  possible  boundary 
conditions)  and  loaded  suddenly  by  a  set  of  loads  consisting  of  uniform 
axial  compression  and  uniform  pressure.  Tiiese  loads  may  be  applied 
individually  or  in  combination,  but  they  will  be,  in  general,  represented 
by  a  load  parameter  X.  The  case  considered,  herein,  corresponds  to 
suddenly  applied  loads  of  infinite  duration  and  constant  magnitude. 

Since  the  internal  and  external  loads  are  conservative,  the  system  is 
conservative. 

Let  u,  V,  and  w  be  the  reference  surface  displacement  component 
(see  next  section)  which  are,  in  general,  functions  of  position  (x,  y,  z) 
and  time,  t.  Then,  the  total  potential  is  a  functional  of  the  displace¬ 
ment  components  and  their  space-dependent  partial  derivatives.  Similarly, 
the  kinetic  energy  is  a  functional  (positive  definite)  of  the  time -dependent 
derivatives.  The  functional  is  said  to  be  positive  definite  if  it  is 
positive  for  all  possible  values  of  the  functions  in  the  integrand,  except 
zero,  in  which  tasc  the  functional  is  zero. 
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On  the  basis  of  the  conservation  of  energy  principle,  the  total  energy 
Is  a  constant,  C,  or 

r 

u,v,w;XJ  +  T  =  C  (3.1) 

where  U.^,  and  T  are  the  total  potential  and  kinetic  energy  functionals 
respectively  and  C  is  a  constant  as  far  as  buckling  trajectories  are 
concerned.  This  means  that,  in  the  case  of  uniform  pressure  on  a  cylin¬ 
drical  shell,  the  breathing  mode  trajectory  cannot  possibly  be  considered 
as  an  admissible  buckling  trajectory.  The  reason  for  this  lies  In  the 
fact  that  a  perfect  cylindrical  shell  with  ends  free  to  expand  and/or 
contract  when  loaded  by  uniform  pressure  deforms  In  the  breathing  mode 
primarily  (primary  path),  therefore  "buckled"  motion  cannot  possibly 
occur  through  this  mode.  Then,  C  in  Eq.  (3.1)  will  account  for  the 
potential  of  the  external  forces  because  of  primary  path  modes.  Note 
that  in  the  case  of  axial  compression  C  contains  the  potential  of  the 
axial  force  in  connection  with  the  axial  mode  (the  part  of  u  which  Is  not 
w-dependent ) .  This  point  is  further  dealt  with  in  a  later  section. 

Next,  define  a  modified  total  potential,  such  that 

mod. 

+  T  =  0  (3.2) 

^mod. 

where 

-  C 

T  .  T 
mod . 

With  this  modification  the  criterion  becomes  Identical  to  that  for 
the  irame  problem  (Section  2). 

The  Static  Solution 

It  is  obvious  from  the  stability  criterion  as  applied  to  the  case  of 
sudden  loads  of  constant  magnitude  and  Infinite  duration,  that  a  complete 
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static  analysis  is  needed.  This  includes  pre-limit  point  behavior, 
establishment  of  the  limit  point  and  post- limit  point  behavior.  At  each 
equilibrium  point,  the  corresponding  value  of  the  modified  total  potential 
must  be  evaluated.  According  to  the  criterion,  then,  the  value  of  the 
load  for  which  the  modified  total  potentia'  in  zero  at  an  unstable 
equilibrium  point  (post-limit  point)  corresponds  to  a  lower  bound  of  the 
critical  dynamic  load. 

Consider  an  imperfect,  orthogonally  stiffened,  thin,  circular, 
cylindrical  shell  (see  Fig.  1),  loaded  by  axial  compression  and/or  uniform 
pressure.  Let  w'’(x,y)  denote  the  deviation  of  the  shell  midsurface  (taken 
as  a  reference  surface)  from  the  corresponding  perfectly  cylindrical  one. 
Moreover,  let  u,  v,  and  w  denote  the  displacement  components  of  the 
material  points  on  the  reference  surface.  The  component  w(x,y)  is  measured 
from  the  reference  surface  in  the  radial  direction. 

The  nonlinear  kinematic  relations  for  this  configuration  are 
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The  relations  of  the  stress  and  moment  resultants  to  the  strains 
and  changes  in  curvature  and  torsion  are  (see  Ref.  23): 


N  =  E  r  (1+x  )€°  +  ve'^'  ■  e  X  h  I 

XX  XX  L  xx'  XX  yy  x  xx  xxJ 
P 

N  =  E  Tve^  +  (1+X.  )e‘‘  -  e  X  k  1 

yv  xx^L  XX  yy'  yy  y  yy  yyJ 


N  =  E  I  <l-v)c°  I 
xy  xXpL  xyJ 


M  =  D-jT  (1+p  )  +  "^  in  +vh  -^eX.  e”! 

XX  Ll  XX  ^  yy  ^2  X  XX  xxJ 

M  =  d{vi<  +1  (1+p  )  +  ^  e^X  ix  --^eX  e°l 

yy  L  XX  I.  ^yy'  ^2  y  yyJ  yy  ^2  y  yy  yyJ 


(3.5) 


M  =  D(l-v)  K 
xy  xy 


where 


E^^  =  Et/(l-v^);  D  -  Et*^/12(l-v^);  X^^  =  A^(l-v^)/ti^ 

P 


X  -A  (1-v  )/U  ;  p  =  El  /DX  ;  and  p  =  El  /D£  . 
yy  y  y  xx  xc  x  ^yy  yc  y 

From  Eqs.  (3.3)  one  may  derive  the  following  expressions  for  the 
reference  surface  strains 


e  =  a.N  +  a-N  +  a_H  +  a.H 
xx  1  XX  2  yy  3  xx  4  yy 


€°  -  a.N  +  b_N  +  b,H  +  b.x 

yy  2  xx  2  yy  3  xx  4  yy 


(3.6) 


e°  ”  ^  y  ”  N  /(l-v)E 
xy  2  ’xy  xy  xx 
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where 


=  (l+\  )/q'E  ;  a. 

1  yy  XX  2 

P 


-v/orE  ;  a_ 
XX  3 
P 


(l+\  )e  X 
yy  X  XX 


lot 


=  -ve 


y  yy 


lot 


b-,  =  (l+X  )/aE 

2  XX  XX 


^  = 


-ve  X  lot 

X  XX 


(3.7) 


b,  =  (l+X  )e  X  lot  \  O'  =  i(l+X  )(1+X  )  -  ' 

4  XX  y  yy  u  xx*^  yy'  j 

By  employing  the  principle  of  the  stationary  value  of  the  total  potential 
one  can  derive  the  following  equilibrium  equations 


N  +  N  =  0 

XX, X  xy,y 


N  +  N  =  0 

xy.x  yy,y 


M  +  2M  +  M 

XX, XX  xy.xy  yy.yy 


N 

=  Jn. 

R 


+ 1 


N  (w,  +w° 

yy  y  3 


i  N  (w,  +w° 

I.  xy  X  X 


>J^ 


+  i  N  (w,  +w°,  )  +  I  N  (w,  +w°,  )  ,  +  p 

I  XX  X  X  J  X  L  xy  y  y  J  x 


By  introducing  the  Airy  stress  function,  as  N  =  -N  +  F,  ,  N  =  F, 

XX  XX  yy  yy  ’xx 

and  N  =  -F ,  where  N  is  the  level  of  the  applied  uniform  axial  com- 
pression,  the  first  two  of  Eqs .  (3.8)  are  identically  satisfied. 

Next,  by  eliminating  u  and  v  from  the  first  three  of  Eqs.  (3.3), 
employing  Eqs.  (3.6),  the  Airy  stress  function  and  the  last  three  of 
Eqs.  (3.3)  one  can  derive  the  compatibility  equation  in  terms  of  the 
Airy  stress  function,  F  and  the  radial  displacement,  w.  If  one  expresses 
the  third  of  Eq .  (3.8)  in  terms  of  F  and  w,  the  governing  equations  con¬ 
sist  of  two  coupled  partial  differential  equations  in  F  and  w.  These 
are : 
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Equilibrium 


DL.  [wj  -  L  rpl  -  F,  /R  +  N  (w,  +  w°  )  -  lCF,w  +  w°3  -  p 

n-  -  XX  XX  XX  XX'^  ’  J  K 


Compatibil ity 

L^Tf]  +  Lq[w]  +  ■|l'  w»w  +  2w°J  +  =  0 

where  L^.  and  L  are  differential  operators  defined  by  L  , 


~  ®ll^’xxxx  ^®12®’xxyy  ®22®'yyyy 


with 


“u  ■ 


XX 


^2  - 


“22  ‘ 


''11  ■  ^  "xx  ■  ^.2 

ve  e  X  X 

h  =1+11  -  X.  y  .xx  yy 
12  ^  2  a 


,,  e\  (1  +  X  - 
12  ,  X  XX  yy _ _ 


,  _  e\  (1  +  X  -  v^) 
12  y  yy  xx  ^ 


h  =1  +  0  +  JS-ni 

"22  ^  ^  Pyy  ^  ^2  o 


^11 


ve  X  /a 


X  XX 


qi2  =.  [(1  +  V  Vxx  +  ^x>Vyy^/<2<.) 

^122  “ 


=  0  (3.9) 


(3.10) 


(3.11) 


(3.12) 


(3.13) 


(3.14) 
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and  L  is  a  differential  operator  defined  by 


L[S,T'i  =  S,  T,  -  2S,  T,  +  S,  T, 

-  XX  yy  xy  xy  yy  xx 


(3.15) 


The  total  potential  expression,  in  terms  of  the  Airy  stress  function  and 
the  radial  displacement,  is  given  below 

“t  ■  2i^  i  <SjF?yy  +  +  BjF,^/.  +  B^F^xyXiA 

XX  A 

P 

+  I  J  +  “4”’xy^‘^  "  I  (3-16) 

A  ^  A 


N 


By 


I/^®l'''yy  ^  ''xk2"'^av 


■^xx  A 
p 


XX 


where  (average  end  shortening)  is  given  by 


“AV  ~  "  I  “’x 
A 


(3.17) 


and 


*^1  ‘^22'xx  ’  ®2  '  ‘^ll^xx  ’  ®3  *  ■  ®4  ~ 

P  P 

e  e  X  X 


(3.18) 


u  u  o  1  .  12  X  V  XX  yy~^‘  . 

*1  ^22’  ®2  ”  ^11’  ^^3  ^  ^2  a  j  “4 


Similarly,  the  expressions  for  the  average  end  shortening  and  "unit 
end  shortening"  at  y  =  0  are  given  by 


1  nZTiR  (»L  -  „  .  „  . 

i.,,  x.,..  V  n-  uSiFy  +  SoF*  +  a-jW,  +  a.w, 

AV  1  XX  2ttRL  Jq  1  yy  2  ’xx  3  xx  4  ’yy 


e..,  =  a,N 


-  I  w.^  ^'''x  2w?^)  jdxdy 


(3.19) 
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-  1  f^L' 

e  =  a,N  ■  r  !  3, F,  +  a~F,  +  a_w,  +  a.w, 
1  XX  L  J^i-  1  ’yy  2  *xx  3  ’xx  4 

-  4  (w,  +  2w°  )  1  dx 

2  ’x  '  ’x  ’x  J  » 
y=0 


yy 


(3.20) 


Note  that  e  measures  the  amount  of  end  shortening  per  unit  of  cylinder 
length,  L. 

The  associated  boundary  conditions  are  either  kinematic  or  natural. 

Thus,  one  must  prescribe  the  values  of  either  u,  v,  w  and  w,^  or 

N  ,  Q*  and  M 
xy  ^x  XX 

Before  listing  the  various  boundary  conditions,  the  expressions  for 
and  Q*  in  terms  of  F  and  w  are  given.  Moreover,  a  few  explanatory 
remarks  are  presented  for  certain  boundary  conditions. 

First,  the  expressions  for  and  are: 


M  =  y.v,  +  YoW»  +  Yi(F»  ■  N  )  +  Y/F» 

XX  1  XX  '2  yy  ’3  yy  xx  4  xx 

Q*  =  (F,  -  N  )  (w,  +  w°  )  +  F,  (w,  +  w°  )  -  M  -  2tl 


yy  XX' 


'xy  y 


XX. 


xy 


(3.21) 


'y 


where 


Yi  -  Dhj^^;  Y2  -  2  ^3’  "^3  "  '*3’  \ 


(3.22) 


As  far  as  the  in-plane  boundary  condition  at  either  end  one  may 


write 


either 


or 


N  -  -N 

XX  XX 


6u  «  0 

(u  B  prescribed) 


(3.23) 


but  in  terms  of  the  Airy  stress  function  one  may  write 


either 
F,  -  0 

yy 


or 


u  B  prescribed 


(3.23a) 
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From  the  above  it  is  clear  that  the  true  in-plane  condition  (at  one  of 


the  two  ends)  must  be  F,  =  0.  At  the  other  end  it  could  be  u  =  0. 

yy 

Note  that  if  one  assigns  various  values  to  u  at  a  boundary,  the  correspond 
ing  load  (N^^)  is  unknown.  This  approach  is  not  covered  in  this  report. 

Finally,  if  the  applied  load,  N  ,  passes  through  the  reference 
surface  and  the  reference  surface  is  hinged  (for  the  simply  supported 
case),  then  in  this  case  one  may  write  =  0.  On  the  other  hand  if  the 
load  is  applied  in  an  eccentric  manner  then  M  0  but  M  =  +  eN  , 

XX  XX  —  XX 

where  e  is  the  load  eccentricity  (if  e  =  0,  one  has  the  usual  simply 
supported  condition) . 

All  possible  (extreme)  boundary  conditions  are  included  in  the 
analysis  and  the  related  solution  methodology  (including  the  computer 


program) . 

These  are,  simply  supported 

(SS), 

free  (FF)  and  clamped  (CC) 

for  all  possible  combinations  of  in-plane  boundary  conditions  (i=l,2,3,4) 

1.  F.  =  F.  =0 

SS-i; 

w  =  0;  M  =  +eN 

•xy  -yy 

XX  -  XX 

2. 

F,  =0;  u  =  0 
xy 

CC-i; 

w  =  w,  =0 

X 

3. 

V  =  F,  =0  (3.24) 

yy 

FF-i; 

Q*  =  0;  M  *  +eN 

4. 

V  =  0;  u  =  C 

XX 


XX 


where  C  =  constant 


The  conditions  in  u  and  v  can  be  expressed  in  terms  of  w  and  F  as 

in  Ref.  24.  For  example,  the  condition  u  =  C  in  SS  -2  can  be  replaced 

by  a  condition  expressed  solely  in  terms  of  w,  w°,  F  and  their  gradients. 

This  is  accomplished  by  the  following  procedure: 

This  boundary  condition,  85*2,  at  x  *  0  or  L  is  given  by  w  =  0; 

F,  *  0,  M  =  +  eN  and  u  *  C.  The  first  two  are  in  terms  of  w  and 
xy  XX  —  XX 

F.  The  third  one,  froni  the  first  of  Eqs.  (3.21)  is 

expressed  in  tenns  of  w,  F,  and  their  gradients.  For  the  last  one,  one 


notes  that  [see  Eqs.  (3.3)  and  (3.5)3 

=  i  [u,  +  V,  +  w,  w,  +  w,  w°,  +  w,  w°  ]  =  -F,  /(l-v)E  (3.25) 

2  y  X  X  y  y  x  x  y  xyf  '  xx  '  ' 


xy 


since  F,  =  0,  w,  =0  because  w(0,y)  *  0,  and  u,  *  0  because  u(0,y)  =  C, 
xy  y  y 

Eq.  (3.25)  becomes 


V,  +  w,  w,  =0 
x  X  ’y 


(3.26) 


Similarly,  from  Eqs.  (3.3)  and  (3.5)  one  may  write 


®yy  “  "^’y  I  ^"’y^^'y  ^  ‘  R 


=  a.N  +  b.N  +  b,H  +  b.H 
2  XX  2yy  3xx  4yy 


(3.27) 


This  equation,  Eq.  (3.27),  is  valid  at  any  point  along  the  shell, 
therefore  differentiation  with  respect  to  x  does  not  violate  its  validity. 
If  this  is  done  and  if  the  N's  and  h's  are  expressed  in  terms  of  w,  F,  and 
their  gradients,  one  may  write 


V,  +-7  [w,  (w,  +  2w,  )  +  w,  (w,  +  2w,  )] - 

yx  2  ^  ’xy  y  y  y  xy  xy  R 


=  a_F,  +  b-F,  +  b_w,  +  b.w, 

2  ’yyx  2  xxx  3  xxx  4  yyx 


(3.28) 


Evaluation  of  Eq  .  (3.28)  at  x  =  0  or  L,  and  use  of  the  fact  that 
w.y  (0,y)  =»  0  yields 

V,  +  w,  w?  -  w,  Z,  *  a.F,  +  b-F,  +  b-W,  +  b.w,  (3.29) 
yx  ’xy  y  x/R  2  yyx  2  xxy  3  xxx  4  ’y3rx  '  ' 

Differentiation  of  Eq.  (3.26)  with  respect  to  y,  yields 

V,  +  w,  w°  +  w,  w®  “0  (3.30) 

xy  ’xy  ’y  'x  ’yy  '  ' 
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Substitution  of  Kq.  (3.30)  into  tq.  (3.29)  yields  a  boundary  condition 
equivalent  to  u  =  C,  or 


2  XXX 


b.w, 

3  XXX 


+  b.w, 

4  ’yyx 


"-x(r 


yy/ 


(3.31) 


Similar  steps  may  be  followed  to  express  all  possible  boundary  conditions 
in  terms  of  w,  F,  and  their  gradients.  In  order  to  save  space,  only  the 
final  expression  for  all  possible  boundary  conditions,  Eqs.  (3.24),  are 
given  below,  which  have  been  incorporated  into  the  compute:,  program  (see 
Appendix  A).  The  condition,  shown  below,  corresponds  to  uniform  applica¬ 
tion  of  N  across  the  cross-section  (M  =  aJJ  ). 

XX  XX  T  XX 


SS-1  w 

SS-2  w 

SS-3  w 

SS-4  w 


=  YiWf  +  V/F»  “  F,  ■  F,  =0 
1  XX  4  XX  xy  yy 


Y,w,  +  y~F,  +  Y/F,  =  F,  =0 
’1  XX  3  yy  4  xx  xy 

b.F,  +  b.w,  +  b.w,  +  w,  (^  +  w°  )  =  0 
2  ’xxx  3  XXX  4  yyx  ’x\R  yy/ 


=  YiW,  +  y,F,  =  F,  =  0,b,F,  +  b,w,  =  a,N 

'1  XX  4  XX  yy  2  ’xx  3  ’xx  2  xx 


=  YiW,  +  Y,F,  +  Y/F,  =  ajF,  -  N  )  +  b.F, 

'1  XX  '3  ’yy  4  xx  2\  ’yy  xx/  2  ’xx 


(3.32) 


+  b_w,  =  0 
3  XX 


+  2/(l-v)E  j  F,  +  b  F,  +  b  w,  +  b.w, 

xyy  2  xxx  3  xxx  4  xyy 

+  w,  (^  +  w°  ')  =  0 
’x\R  yy/ 


CC-1  w  =  w,  *  F,  “  F,  0 
-  X  ’xy  ’yy 


CC-2  w  =•  w,  “  F,  =0 
-  ’x  ’xy 


b,F,  +  b.w,  “  0 
2  ’xxx  3  ’xxx 


CC-3  w  =•  w.  -  F  =  0 

"  ■  ’x  ».... 


yy 


b,F,^^  +  b  w,  -  a-N 

2  xx  3  XX  2  XX 
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CC-4  w  =  w,  =  &Jf,  — N  ')  +  b^F,  +  b^w,  =  0 
-  2  vv  xx/  2  XX  3  XX 


■X  2  ’yy 

n 


(3.33) 


a,  +  2/(l-v)E  1  F,  +  b-F,  +  b.w,  =  0 

-2  '  '  xXp-*  yyx  2  xxx  3  xxx 


Similarly  the  FF-1  condition  and  the  symmetry  and  antisymmetry  conditions 
at  X  =  L/2  are 

FF-1  v,w>  +  Y->w»  +  Y/F.  =  =  Ft  =0 

-  -  ^1  ’xx  '2  *yy  '4  ’xx  yy  xy 

(3.34) 

Y/F,  +  YiW.  +  I  Yo  +  2D(1“V)  w,  +  N  (w,  -  w°  )  =  0 

’4  xxx  1  xxx  L'2  j  xyy  xx  x  x 

Symmetry  (w,^  =  Q*  =  =  u  =  0) 


=  YiW, 

+ 

Y/F, 

(F,  -  N  )  w,  =  0 

’1  xxx 

4  xxx 

yy  XX  X 

=  b-F 

+ 

b-w,  + 

w,  w,  =0 

2  xxx 

3  ’xxx 

*x  ’yy 

(3.35) 


Antisymmetry  (w  =  M  =  v  =  F,  =  0) 
XX  yy 


w  =  YiW,  +  y<F, 

’1  ’xx  '4  XX 


(3.36) 


F,  =  0,  b-F,  +  b_w,  =  a.,N 
’yy  ’2  XX  3  xx  2  xx 

For  Che  case  of  zero  load  eccentricity  the  various  boundary  conditions 
become 


SS-1  w  =  Y,w,  +Y/F,  =F,  =F,  =0 

-  ^1  XX  '4  XX  xy  yy 

SS-2  w  =  Y,w,  +  y/f,  -  N  +  Y/^«  =  F, 

-= —  ^1  XX  3-  yy  xx/  '4  xx 


xy 


/I  o  ^ 

b-F,  +  b-w-  +  b.w,  +  w,  I  r- +  w,  '  ®  0 

O*  '  ^  A  *«•«««»  'V  '  I#  *%  - 


2  xxx  3  xxx  4  ’yyx  ’x  -R 


yy 


SS-3  w  =  Y,Wi  +  Y/F,  *  F,  *  I’oF,  +  b_w,  ■  a,N 
== —  I  XX  4  XX  yy  2  xx  3  xx  2  xx 
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ss 


-4  w  =  Y,w,  +  v.vF,  -  N  '^  +  v,F, 
—  ''1  ’xx  3\  yy  xx  ’4 


,  =  a„‘  F,  - 

XX  2  yy  xx/ 


+  b  F,  +  b«w,  =  0 
2  ’xx  3  ’xx 


a„  +  2/(l-v)E„^  ,  F,  +  b  F,  +  b_w,  +  b.w, 

.  2  xXpJ  ’xyy  2  xxx  3  ’xxx  4  ’xyy 


(3.37) 


+  w,  (^  +  w°  '^=0 
’x  VR  ’yy 


CC-1 

w  =  w,  = 

X 

"’xy 

11 

II 

0 

CC-2 

w  =  w,  = 
•x 

^’xy 

=  0 

b-F,  +  b.w, 

2  xxx  3  xxx 

=  0 

CC-3 

II 

X 

II 

’•yy 

=  *r 

b.,F,  +  b  w, 

2  XX  3  XX 

(3.38) 


CC-4  w  =  w.  =  ajF,  -N  ')  +  b..F,  +  b^w.  =  0 

-  ’x  2\  yy  XX  2  xx  3  xx 


,  a-  =  2/(l-v)E  I  F,  +  b-F,  +  b.w,  =  0 
.-2  xXpJ  yyx  2  xxx  3  xxx 


Similarly  the  FF-1  conditions  are 


>'4 


1  XX 

■h  Y  oW ,  +Y/E,  “F,  ~F, 

’2  yy  ’4  xx  yy  xy 

=  0 

(3.39) 

F, 

+  YiW.  +  1  Yo  2D(1-v)  w. 

+  N  (w. 

o  \  ^ 

-  w,  =0 

xxx 

1  xxx  L'2  xyy 

xxV  X 

X 

The  problem,  as  formulated  herein,  is  to  find  the  complete  nonlinear 
response  of  the  shell  to  externally  applied  pressure  and  compression. 

This  response  includes  post-limit  point  behavior  or  postbuckling  behavior, 
whichever  is  applicable.  Thus,  all  equilibrium  positions  may  be  presented 
as  plots  of  applied  load  parameter  versus  some  characteristic  displacement 
(the  average  end  shortening  is  one  possibility).  Moreover,  at  each  equi¬ 
librium  point,  the  values  of  the  total  potential  and  modified  total 
potential  are  recorded,  in  order  to  establish  critical  dynamic  conditions. 
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Solution  Methodology 

The  solution  methodology  described,  herein.  Is  an  extension  of  the 
procedure  outlined  In  [25].  Therefore,  some  duplication  Is  unavoidable, 
especially  In  the  Interest  of  making  this  section  self-contained. 

As  seen  from  Eqs.  (3.9)  and  (3.10),  the  field  equations  consist  of 
two  coupled,  nonlinear,  partial  differential  equations  In  terms  of  the 
tr2msverse  displacement  component,  w,  and  the  Airy  stress  function  F. 

A  separated  solution  of  the  form  shown  below  (see  [24]),  Is  used  in 
order  to  reduce  the  system  of  partial  differential  equations  to  one  of 
ordinary  differential  equations. 


K 

w(x,y)  =  \  Wj^(x)  cos 
i=0 

2K 

F(x,y)  =  ^  fj^(x)  cos 
1=0 


(3.40) 


where  n  denotes  the  number  of  full  waves  around  the  circumference. 

The  Initial  geometric  imperfection  Is  al* 'i  expressed  In  a  similar 

form 

K 

W°(x,y)  =  W°(x)  cos  ^  (3.41) 

i=0 

where  W^(x)  denotes  known  functions  of  position  x. 

The  following  steps  are  employed  in  order  to  accomplish  the  reduction 

to  a  system  of  ordinary  differential  equations.  First,  Eqs.  (3.40)  and 

r 

(3.41>  are  substituted  Into  the  compatibility  equation  '^Eq.  (3.10)j.  Next, 
by  employing  trigonometric  Identities  of  double  Fourier  series  Involving 
products  (as  in  [26]),  the  compatibility  equation  reduces  to  a  trigonometric 
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series  in  .  The  coefficient  of  each  term  involves  differential  opera¬ 
tions  on  Wj,  f.,  and  W^.  Use  of  the  orthogonality  of  the  trigonometric 
functions  reduces  the  compatibility  equation  into  2K  +  1  ordinary,  non¬ 
linear,  differential  equations. 

Next,  the  Galerkin  procedure  is  employed  (in  the  circumferential 
direction)  in  connection  with  the  equilibrium  equation  j^Eq.  (3.9)J.  This 
leads  to  the  vanishing  of  (K  +  1)  Galerkin  integrals,  which  results  into 
a  system  of  (K  +  1)  nonlinear  ordinary  differential  equations  in  and  f^^. 

These  equations  are: 

(a)  Compatibility  (2K  +  1) 
for  i  =  0 


f 

o 


K 

r 


- —  1  -q,,w"  -  W  /R  +  ,  j^(W.  +  2W?)W,  +  a.N 

L  ^11  o  o  2  j  j'  j  2  xx_i 

j=l 


11 


(3.42) 


The  above  equation  is  obtained  from  the  first  (fourth  order)  compatibility 
equation,  with  the  continuity  condition  on  v  at  zero  and  2tt  satisfied. 
for  i  =  1 ,  2  , . . .  .2K 


""  yin'^ 


‘*11^1  ‘*12^1  '\rJ  “22*1 


.  *  ¥)  d..f. 


^2 


f  in^ 


"*  /in' 

'iL'^ii'^i  -Kt)  ‘*22^1  ^«i^ 

2  ^ 

^  V  ;r, 


4R 


2  4.  ^i-Hj> 

j^o 


(3.43) 


42 


^  "f)  -  “la^  ^  (f )'  (“i 

4.2  ^ 

+  wj)  + ^  (W  +  w?)  ^  jVx+2W°)W 

4R^  “n  ^  X  ^  j  j  j 


j=l 


+  !!-f  <w^  +  w°)  ^  I  +w»^.) 

ZK 


2K 


+  (2  -  ■^5.i)<1-J)^6|^.j|(W|..j| 


(3.45) 


+  [5i+j<“i+j  +"n._j>  +  (2  -  ’'j-l)*|t.j|("|l.j| 


For  a  given  imperfection  and  value  of  the  applied  load,  Eqs . 

(3 .42)-(3.45)  represent  a  system  of  (3K  +  2)  coupled  nonlinear  differen¬ 
tial  equations  in  (3K  +  2)  unknowns,  f^  with  i  =  0,  1,  2 , . . . ,2K  and 
with  i  =  0,  1,  2,...,K. 

Note  that  by  setting  n=0,  Eqs.  (3.42)-(3 .45)  reduce  to  the  linearized 
version  of  the  equations  of  compatibility  and  equilibrium.  Moreover,  it 
is  seen  from  Eqs.  (3.40)  that  regardless  of  the  value  of  n(=l ,2 , . . .any 
integer)  the  axisymmetric  mode  (W^,  f^)  is  represented  because  the  summa¬ 
tion  on  j.  starts  from  zero. 

In  addition,  it  is  seen  from  Eq.  (3.41)  that  the  imperfection 
expression  is  suitable  for  the  case  when  the  Imperfection  shape  is  similar 
to  the  buckling  mode,  as  well  as  for  any  arbitrary  axisymmetric  imperfec¬ 
tion  and  for  any  arbitrary  synmetrlc  (with  respect  to  y)  imperfection. 
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In  this  last  case,  a  solution  can  be  acconplished  by  setting  n=l,  [see 
Eqs.  (3.40)],  and  by  taking  K  sufficiently  large  in  order  to  achieve 
a  convergent  solution  and  have  an  accurate  representation  for  the  unper> 
fection. 

Next,  the  boundary  conditions  (at  x  constant),  for  two  cases  of 
simple  supports  are  presented  below. 

sszl 

Wo  -  0  ;  w;  =  -  Y^qii) 

”l  ”  '^l”i  "^4^1  “  i  *  1,  2,  3 . K  (3.46a) 


f 


1 


1.  2,  3 


,2K 


•3**x* 


) 


'‘o  "  ®  ^^o  “  ■'^4*2”xx^^^  1*^11  ■  ^**11^ 

ft  »• 

Wi  -  VjWj  +  *0;  i  *  1,  2,  3,...,K  (3.46b) 

fi  -  fi  -  0;  i  -  1,  2,  3 . 2K 


SSri  (M^  -  0) 


~  ~  ■'^4*2**xx^^^l‘*ll  ■  '*'4‘*11^  ^3^; 


XX 


“i  ■  -  ''3[««x  *  (t)  'J  *  vi.'  ■  ‘  2 . * 
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=»  0;  i  =  1,  2,  3,...,2K 


m  ///  /  4  »  1*  ^  ’^r  On 

hh  ^  ■  (f)  Vi  ^ i  ^  ^ 


j=0 
I  • 


+  (1  -  Tl^_^  +  Tip  <i-J)^°i.jjj  Wj  =  0;  i  =  1.  2,....2K 


SS-2  (M  =  a,N  ) 
-  '  X  3  XX 


“i  ^  i  =  1,  2 . 1 


=  0;  i  *  1,  2,  3,...,2K 


fff  M  /-f\^  •  1*  On 

\h  ^  ‘^3Wi  -  (f)  ^  R  ^  ^  ''i+J 


j=0 


(3.47b) 


+  (1  -  Tlj-i  +  "^i)  ”Ii-jl]  ^  ^ . 


SS-3  (M^  =  0) 

Wo  "  ”o  “  •V2^xx/<'^1‘*11  •  Vll> 

II  ‘  II 

“l  “  '^l”!  ■*■  Vl  “  i  »  1,  2,...,K  (3.48a) 

-  b^f^'  +  b^W^'  -  0;  i  »  1,  2 . 2K 
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SS-3  (M_  =  a,N  ) 
'■  XX  3  XX 


«„  “  »•.  «„  -  -V2V‘''l'*ll  ■  VU> 


(3.48b) 


II  tf 


+  b^W^  -  0;  i  -  1,  2 . 2K 


<”xx  “ 


2- 


Wo  «  0;  Wo  =  -V4a2N^/(V^dj^  -  +  VaN^ 


XX 


■  '^3L”xx  ■‘‘  (  R  y  ^iJ  ^4^i  “  i  •=  1,  2 . 1 


.2  - 


■  nf)  ^i] Vi  +  ^  =  . 


2K 


■  [“2  *  If)'‘i  *  *  Vl 


(3.49a) 


\(fAi  4  i  ^ 

j-O 


1„' 


^V^li-jlJW.  =0;  1.1,2.... 


,2K 


(^'xx-VxxJ 


’'o  *  ■  V2”  y<Vll  ■  Vll> 


'in' 2 


WjL  -  J  +  Y^f^  *0;  1  -  1,  2,...,K 
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-  “2(f + vi' Vi  -  »•-  . 


.  2 


II  II 


2K 


r 

-  I  a. 


1  2/(1-v)E^  Jfft[  *  b,£'"f  bjW"'-  «'. 

P 


j-O 


+  T1i)  W°i.j[]  wj  0;  1  -  1,  2 . 


2K 


CC-j  Wj  =  W .  =  0;  1  -  0,  1,...,K 


(j=l,2,3.4) 


and 


CC-1  =  0;  1  =  1,  2,...,2K 


t  ///  M 


CC-2  q  *  -  0;  i  -  1,  2,...,2K 


ti  11 


CC-3  =  b2f^  +  b^W^  -  0;  i  =  1,  2,...,2K 


2K 


-  1  *2  +  2/(l-v)E^  If  j  fj  +  b,fj  +  b3W^  -  0. 
P 


(3.49b) 


(3.50) 


(3.50a) 


(3.50b) 


(3.50c) 


(3.50d) 


i  -  1,  2 . 2K 

II 

Note  chat  Eq.  (3.42)  Is  employed  to  eliminate  from  the  remaining 

II 

equations,  and  there  are  no  boundary  conditions  with  reference  to  (f^)* 
Thus,  the  number  of  boundary  conditions,  at  the  x  =  constant  boundaries,  * 
Is  equal  to  (6K  +  2)  Instead  of  (6K  +  4). 
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Similarly,  the  expressions  for  the  total  potential,  U^,  average  end 
shortening,  e^^,  and  "unit  end  shortening",  e,  can  be  written  In  terms  of 
fj  (1  -  1,  2,...,2K)  and  (i  -  0,  1,  2,...,K). 


-  ttR 


1  f^2  !•  *^0 


p  11 


1-1 


1-1 


^  ^  ^(f)<  ]}  * 


(3.51) 


1-1 


*  “if) 


1-1  ^ 


dx 


_  1»  II  y  nRL^1 

+  2TTRa,N  f  W  dx  -  N  -= - - 

3  XX  o  XX  E_ 


XX 


La  W 

'av  ■  “i”..  *  r  J„  iifi  [f  * 


■  ZZ  Z.  ^  +  2WJ)W  J  - 

^  1-1 


(3.52) 


K 


“i  I  "i  <*i “ "!’>}  *■ 

i-1 
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e  =  a 


1  ^  r 

-N  T  r  I  "a —  '  "b 


-  ^  ^'<"1  ^  "J  *  1  i>i(TAi 

4R 


+  q,  1  W  +  a  N 
R  ’ll  o  2  XX 


2K 


1=1 


1=1 


<n 


SV  CV  M 

-I  ^  I  (f ) 


1=0 

K  K 


1=1 


2  [  1  )1 
j  j  — rt 


dx 


1=0  1=0 


(3.53) 


The  solution  methodology  employed  Is  described  below,  and  It  Involves  two 
solution  schemes,  one  for  finding  equilibrium  positions  up  to  the  limit 
point  and  one  past  the  limit  point. 

First,  a  generalization  of  Newton's  method  [27,28],  applicable  to 
differential  equations,  is  employed  to  reduce  the  nonlinear  field  equations, 
Eqs.  (3 .42)- (3. 45)  and  appropriate  boundary  conditions  to  a  sequence  of 
linearized  systems.  In  this  method,  the  iteration  equations  (linearized 
system)  are  derived  by  assuming  that  the  solution  can  be  achieved  by  a 
small  correction  to  an  approximate  solution. 

For  finding  pre-limit  point  equilibrium  positions,  the  applied  load 
level,  is  taken  as  known,  the  linear  (n=0)  solution  is  taken  to  be 

the  approximate  solution,  and  the  small  corrections  (inW^'s,  and  f^'s) 
are  obtained  through  the  solution  of  the  linearized  (with  respect  to  the 
corrections)  differential  equations.  Note  that,  in  this  range,  the  stiff¬ 
ness  matrix  is  positive  definite. 

For  finding  post-limit  point  equilibrium  positions  (in  a  range  of 
negative  stiffness  matrix),  the  numerical  scheme  is  modified.  The  load 


50 


parameter,  taken  to  be  unknown,  and  one  of  the  displacement  para¬ 

meters  replaces  It  as  a  Imown  parameter.  Great  care  must  be  exercised 
In  choosing  this  W^.  This  Is  done  by  observing  how  the  various  W^'s 
change  with  changes  In  the  pre- limit  point  range,  and  choosing  a 
that  tends  to  Increase  In  a  smooth  and  continuous  manner,  but  most 
Importantly  Is  one  of  the  most  dominant  displacement  terms.  In  this  post- 
limit  point  range,  the  linear  solution  cannot  be  taken  as  the  initial 
estimate  for  the  needed  Iterations.  Therefore,  the  last  converged,  pre- 
limit  point  solution  Is  used  as  an  Initial  estimate  for  finding  the  first 
post-limit  point  solution.  From  there  on.  In  this  same  range,  the  previous 
solution  Is  utilized  as  an  initial  estimate.  Needless  to  say  that  this 
latter  procedure  may  also  be  used  In  the  pre-limit  point  range,  starting 
near  the  undeformed  position.  Unfortunately,  this  procedure  Is  not  very 
economical  with  regard  to  computer  time  and,  therefore,  It  Is  very  lnef> 
ficlent  In  this  range. 

It  Is  decided  to  Increase  the  number  of  dependent  variables  from 


(3K  +  1)  Wj,...Wj^,  f^,  f2j^)  to  (6K+  2)  (W^, 

TIq. 


fy. 


2K’ 


where  „ 

i  2,...,K 

and  (3.54) 

-  f j  j  -  1,  2,...,2K 


The  reason  for  this  reduction  of  the  order  of  the  field  equations,  but 
Increase  of  the  number  of  the  field  equations.  Is  related  to  the  solution 
scheme,  which  Is  based  on  the  finite  difference  procedure.  In  finite 
differences.  It  Is  convenient  to  keep  the  order  of  differential  equations 
as  low  as  possible  (first  and  second  order  preferably).  Then,  the 
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linearized  (in  the  Increments)  field  equations,  Eqs .  (3. 43)- (3. 45) ,  the 
transformation  equations,  Eqs.  (3.54),  and  boundary  terms,  can  be  written 
in  matrix  form,  as  shown  below: 

Field  Equations 

[R]  Cz"]  +  [S]  {z'}  +  [t]  {Z}  »  {g}  (3.55) 


Boundary  Terms 


[S]  Iz’}  +  tT]  [Z]  -  {g} 


(3.56) 


where  [z]  is  the  vector  of  the  (6K  +  2)  unknowns.  Mote  that  when  the  load 
parameter  is  considered  as  a  known  term, then 


[Z}' 


,f,,...,f2jj,Ti^,'n 


1’‘2 


1’ 


.§2k^  (3.57) 


On  the  other  hand,  if  a  certain  Wj  (chosen  dominant  term)  is  considered 
as  a  known  term,  this  Wj  is  removed  from  vector  [z] ,  Eq.  (3.61),  and  it 
is  replaced  by  the  load  parameter. 

Also,  note  that  [r] ,  [s],  [t],  [S],  [T] ,  {g},  and  {g}  in  Eqs.  (3.55) 
and  (3.56)  contain  known  terms  (associated  with  initial  approximate 
solution  and  applied  known  increments).  Ihe  ordinary  differential 
equations  are  next  cast  into  the  form  of  finite  difference  equations, 
thus,  the  linear  differential  equations,  Eqs.  (3.55)  and  (3.56)  are 
changed  into  a  system  of  linear  algebraic  equations.  The  usual  central 
difference  formula  is  used  at  all  mesh  points,  I,  l.e.. 


I 


•  f 


(Z 


jH-1 


2Z, 


+  z^.i)M 


(3.58) 
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Note  that,  since  the  second  derivatives  in  and  are  taken  as  Indepen¬ 
dent  variables,  Eqs.  (3.54),  the  second  of  Eqs.  (3.5^  Is  only  applied  to 
the  fourth  derivatives  of  and  f^. 

By  using  one  fictitious  point  outside  the  cylinder  at  each  end,  one 
obtains  a  system  of  (6K  +  2)  X  (NP  +  2)  linear  difference  equations. 

(Note  that  NP  stands  for  number  of  mesh  points.)  These  equations  are 
solved  by  an  algorithm  which  is  a  modification  of  the  one  described  in 
[29].  A  computer  program  has  been  written  for  the  Georgia  Tech  high 
speed  digital  computer  CDC-CYBER-70,  Model  74-28.  The  listing  and  flow 
chart  are  given  in  the  Appendices  B  and  A  respectively. 

In  generating  data,  in  order  to  investigate  pre-  and  post-limit  point 
behavioral  response  of  axially  loaded  cylindrical  shells,  the  solution 
procedure  goes  as  follows:  first,  the  system  of  equat  ons  is  solved  for 
a  small  level  of  the  applied  load,  N^,  (taken  as  known).  Then,  solutions 
are  sought  for  step  increases  in  N^,  until  the  process  fails  to  converge. 
The  load  level  at  which  the  solution  fails  to  converge  is  a  measure  of  the 
limit  point  or  critical  load  (see  [25]).  As  explained  in  [25],  when 
approaching  the  critical  load,  the  increment  in  the  applied  load  must  be 
small  and  the  sign  of  the  determinant  of  the  coefficients  of  the  response 
must  be  checked.  If  convergence  fails,  the  load  level  is  over  the  limit 
point.  But  if  convergence  does  not  fail  and  the  sign  of  the  determinant 
changes  from  what  it  was  at  the  previous  load  level,  then  the  load  level 
is  also  over  the  limit  point.  Desired  accuracy  can  be  achieved  by  taking 
smaller  and  smaller  increments  in  N^.  Note  that  a  cost  penalty  must  be 
paid  for  improving  the  accuracy  in  N^  or  by  this  approach.  It  is  also 
observed  that  by  employing  this  procedure  (algorithm  in  which  N^  is 
known  and  the  response,  f^,  is  unknown),  no  solution  can  be  obtained 


past  the  limit  point.  Because  of  this,  the  new  algorithm  Is  employed 
at  this  point  of  the  solution  procedure.  Hie  new  algorithm,  as  already 
explained,  simply  changes  the  role  of  one  of  the  displacement  terms  with 
that  of  the  applied  load  N^.  While  the  first  procedure  is  followed, 
the  most  dominant  displacement  term  Is  identified  (or  a  group  of  terms). 

At  some  level  before  the  limit  point,  the  procedure  is  switched  and  a 
solution  Is  formed  that  corresponds  to  an  Increment  In  the  chosen  dominant 
displacement  parameter.  To  this  end,  the  previous  solution  is  used  as  an 
initial  solution.  The  procedure  is  continued  until  the  entire  post-limit 
point  response  is  obtained.  During  this  phase  of  the  solution  procedure, 
some  convergence  failures  can  also  occur.  These  failures  can  be  attributed 
to  one  of  two  reasons:  (a)  either  the  Increment  In  the  dominant  displace¬ 
ment  parameter  is  too  large  or  (b)  the  NP  (number  of  mesh  points)  is  too 
small  for  an  accurate  description  of  the  response.  Both  of  these  can 
easily  be  corrected.  In  this  second  phase,  large  increments  are  purposely 
used  in  order  to  save  computer  time.  If  the  solution  falls  to  converge, 
then  the  Increment  Is  automatically  reduced. 

Numerical  integration  Is  used  to  find  the  total  potential  and  end 
shortening.  By  this  solution  procedure,  the  entire  load-displacement  or 
load-end  shortening  curves  can  be  obtained  for  a  given  imperfection  and 
each  wave  number  n. 

Numerical  Results  and  Discussion 

Numerical  results  are  obtained  for  two  geometries,  one  unstlffened 
and  one  stiffened,  for  axially  loaded  cylindrical  shells. 

The  geometry  for  both  Is  described  below: 

(a)  Unstlffened  Cylindrical  Shell 

R  ■  4  in.,  t  ■  0.004  in.,  0.008  in.,  0.016  In.,  0.050  In.; 
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L  *  4  in.,  12  in.,  20  in.,  40  In.; 

E  “  10.5  X  lO^psl;  V  •  0.3;  with  (3.59) 

W°(x,y)  ••  t?[” -cos  +  0.1  sin  ^  cos 

and  SS-3  Boundary  Conditions,  Eqs.  (3.32) 

(b)  Ring  and  Stringer-Stiffened  Cylindrical  Shell 

R  ■  4  in.;  t  ■  0.04  in.;  L  ■  4  in., 

e  *  +  0.24  in.;  e  ■  +  0.12  in.;  (+  for  internal  stiffeners) 

X  y 

E  -  10.5  X  lO^si;  V  -  0.3;  (3.60) 

-  0.910;  Xyy  -  0.455;  -  100;  -  20;  with 

V°  V  ■  h?  sin  ^  cos  ^  ;  SS-3  Boundary  Conditions,  Eqs.  (3.32) 

Before  discussing  the  results,  a  few  more  clarifying  remarks  about  the 

geometry  are  needed.  The  unstiffened  geometry  is  taken  from  [25]  and 

[30].  Note  that  in  these  references  only  the  critical  load  is  given  and 

not  the  complete  behavior,  this  geometry  employs,  virtually,  an  axisym- 

metric  imperfection.  Note  that  the  non-axlsynmetric  amplitude  is  10%  of 

the  axisymmetric  amplitude.  A  smaller  value  was  tried  (1%  for  the  non- 

ax  is  ynme  trie  amplitude)  and  the  response  (see  Fig.  3.2;  R/t  ■■  500)  is, 

for  all  purposes,  identical  to  that  of  geometry  (a).  The  only  difference 

is  the  value  for  N  (limit-point  load).  This  difference  only  reflects 
**cr 

the  effect  of  Imperfection  amplitude,  l.e.,  for  p  ■  1,  N  ■  12.24  Ibs/in. 

**cr 

for  1%  non-axisynmietric  amplitude,  while  N  ■  11.44  Ibs/in.  for  10% 

x*cr 

non-axisymmetrlc  amplitude.  Note  that,  in  the  former  case,  the  maxianim 
imperfection  amplitude  is  l.Olh  while  in  the  latter  it  is  l.lOh.  The 
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classical  load  £or  this  case  is  25.42  Ibs/in.  the  reason  chat  the  10% 
amplitude  is  used  in  the  numerical  results  obtained  is  that  the  higher 
the  non-axisynnetrlc  amplitude,  the  faster  the  solution.  Moreover,  in 
this  geometry,  ^  is  varied  from  zero  to  four,  in  order  to  study  the  effect 
of  imperfection  amplitude.  Note  that  for  Che  chosen  imperfection, 

W°^^/h  “  1.15  (3.61) 

Finally,  results  are  generated  for  several  values  of  n  (number  of  circum> 
ferenclal  full  waves) .  This  is  needed  in  order  to  obtain  a  clear  picture 
of  the  complete  response. 

The  stiffened  geometry  corresponds  to  examples  14,  16,  18,  19,  and 
21  of  [2^.  Again,  note  that  in  [25],  only  limit-point  loads  were 
obtained.  Moreover,  in  [25],  SS-3  boundary  conditions  are  used,  but 
with  M  *0  [see  Eqs.  (3.37)].  In  the  present  work,  SS-3  with  M  “ 

3CX  XX 

a.N  boundary  conditions  are  employed  [see  Eqs.  (3.32)].  in  addition  to  the 
^  xx 

difference  in  SS-3  boundary  conditions,  difference  in  response  for  the 
stiffened  geometries  lies  in  the  fact  that  a  term  (a^N^)  is  missing  from 
Eq.  (20a)  of  [25]*  ‘I}ii>  omission  has  been  corrected  in  the  present  work 
[see  Eq.  (3.42)].  The  most  Important  results  are  presented  in  graphical 
form  and  tabular  form.  In  the  ensuing  discussion,  including  conclusions, 
the  statements  are  based  on  all  generated  data. 

Tables  3.1  and  3.2  present  the  various  unstiffened  geometries  for 
which  results  are  obtained  (axial  compression).  Table  3.1  also  gives 
values  of  critical  static  and  dynamic  loads,  as  well  as  minimum  post-limit 
point  loads  and  the  linear  theory  (classical)  static  critical  loads. 

Finally,  for  each  exaoiple,  it  gives  the  number  of  mesh  points  used  in 
the  finite  difference  scheme  and  the  value  of  n.  Table  3.2  summarizes 
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TABLE  3.1  Axially-Loaded  Unstlffened  Cylindrical  Shells 


r^ 

«n 

o 

m 

o 

CO 

r«» 

fN. 

tn 

o 

•/> 

1 

1  ^ 

CO 

<f 

tn 

r4 

<S| 

• 

1  f*^ 

r*» 

rs 

h* 

lA 

«A 

lA 

r^ 

r-fc 

o 

o 

CM 

«o 

\o 

CO 

o 

r^ 

f** 

O' 

• 

1 

O 

CM 

<0* 

•i^ 

lA 

r- 

lA 

1  \o 

in 

CM 

in 

o 

CM 

M 

<n 

« 

1 

1 

CM 

<n 

1  CM 

1  • 

^4 

in 

in 

o 

r- 

CM 

O 

.642 

»A 

CM 

:J 

lA 

lA 

CO 

•A 

o\ 

o 

o« 

m 

m 

o 

CO 

oo 

lA 

•n 

o 

CO 

^4 

lA 

sO 

so 

CM 

OS 

so 

in 

in 

o 

0s 

m 

m 

m 

c» 

CO 

so 

in 

CM 

CM 

m 

CO 

m 

rM 

«A 

r** 

CO 

CO 

o 

A  V  Q 


Ji 


65 

65 

lA 

m 

35 

« 

«A 

m 

» 

•A 

cn 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

35 

65 

65 

SO 

IS. 

00 

OS 

o 

w 

CM 

cn 

»A 

sO 

h.. 

OO 

Os 

o 

m 

»A 

so 

cn 

lA 

m 

1 

«o 

w 

fM 

so 

SA 

Os 

s 

fs 

s 

so 

•tf 

1 

1 

CM 

CM 

st 

rM 

-o 

rM 

sO 

1 

1 

o 

o 

o 

CM 

1 

1 

o 

SO 

fM 

3 

s 

CM 

fM 

1 

1 

OS 

00 

so 

so 

sO 

1 

1 

r*. 

so 

o 

«o 

m 

1 

1 

CM 

•o 

to 

o 

CM 

CO 

SO 

cn 

CM 

CM 

OS 

CO 

O 

00 

OS 

o 

00 

CO 

OS 

fM 

CM 

rM 

CO 

fM 

m 

fM 

fM 

fM 

CM 

o 

o 

os 

CO 

o 

f** 

Os 

os 

lA 

»A 

Os 

O 

o 

O 

O 

o 

OS 

o 

o 

o 

o 

OS 

CO 

CM 

Os 

(VS 

00 

• 

1 

00 

lA 

fs. 

in 

o 

CO 

fs* 

1 

rs^ 

o 

Os 

OS 

• 

• 

Os 

o 

fs 

CM 

fs* 

'O 

Os 

1 

1 

CM 

CM 

rs. 

so 

9^ 

m 

Os 

1 

CO 

fs* 

rs. 

CM 

00 

«M 

CM 

CM 

cn 

•o 

»A 

Os 

CM 

o 

CO 

OS 

o 

cn 

m 

r** 

fM 

lA 

so 

lA 

fM 

fM 

rM 

CM 

lA 

•*tf 

m 

< 

Q 

CO 

o 

o 

o 

o 

O 

O 

o 

O 

P 

Q 

O 

s 

o 

o 

o 

P 

O 

00 

cn 

CM 

O 

w4 

cn 

o 

lA 

Os 

m 

M 

Os 

o 

O 

o 

CO 

o 

st 

CO 

CM 

00 

P 

CO 

»A 

cn 

lA 

*A 

Os 

lA 

so 

CM 

rs.. 

CO 

(fM 

st 

Os 

o 

m 

lA 

fM 

(M 

•n 

lA 

€0 

o^ 

OS 

so 

cn 

cn 

cn 

St 

o 

sO 

in 

cn 

O 

o 

CM 

o 

»A 

CM 

CM 

Os 

lA 

lA 

O 

cn 

CM 

fM 

fM 

lA 

cn 

so 

p 

P 

CM 

•n 

cn 

MT 

m 

fM 

CO 

so 

so 

o 

s 

fM 

_ ^ 

fM 

^  Ik 

/ 

—  7 

/ 

7 

o 

O 

o 

d 

»A 

t/S 

•-4 

CO 

1^ 

CM 

o 

ir» 

fs. 

r- 

CO 

CM 

00 

sO 

CM 

os 

lA 

r- 

00 

C4 

CD 

as 

CO 

•<-1 

o 

ir\ 

«P 

r* 

oo 

• 

«M 

O 

o 

o 

o 

o 

O 

O 

O 

o 

, 

m 

9> 

iA 

»A 

*A 

lA 

»A 

lA 

lA 

•A 

lA 

lA 

lA 

lA 

« 

o 

4> 

4.1 

CA 

lA 

<A 

lA 

<A 

€A 

<A 

CA 

•o 

9i 

£ 

O. 

CM 

CA 

«9  lA 

lA 

10 

•A 

•9 

lA  ^ 

00 

9^ 

CM 

CA 

lA 

CM 

CA  1 

• 

<r 

•9 

O  1 

•  I 

• 

•  1 

»A 

CA 

^  » 

1 

*A 

CM  1 

•9 

9^ 

CM 

as 

* 

»A 

CM 

«A 

O 

O 

CO 

O 

P 

»A 

1 

SO 

CA 

• 

o 

O 

O 

1 

1 

Os 

iA 

1 

c 

00 

so 

so 

CA 

1 

lA 

rs. 

SO 

•a 

lA 

9^ 

O 

00 

O 

o 

O 

O 

O 

O 

o 

O 

O 

o 

o 

CA 

O 

CM 

9 

o 

o 

CM 

CA 

00 

CA 

• 

« 

• 

♦ 

♦ 

• 

• 

• 

• 

• 

• 

Ov 

•9 

SO 

CM 

4A 

lA 

o 

SO 

f»» 

CM 

CO 

CA 

CA 

St 

SO 

rM 

SO 

4A 

CA 

o 

CM 

CM 

St 

CM 

CM 

CA 

CA 

9^ 

CA 

tA 

•9 

CA 

CM 

8«-4  O  fO 

CO  O  M 

>v  •  •  •  ♦ 

|Nk 

'  fv  o  o 

9^  rH  Ov 

cn  r> 


TABLE  3.2  Summary  of  Results  for  Axially-Loaded  Unstlffened  Shells 
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change  of  slope  (not  a  critical  load);  see  Fig.  3.5. 


the  most  Important  results  of  the  study  for  axially- loaded  unstiffened 
geometries . 

The  generated  data,  appearing  in  Tables  3.1  and  3.2,  are  also 
presented  in  graphical  form  and  a  discussion  of  the  various  effects  is 
presented.  First  the  results  corresponding  to  R/t  -  1000  are  presented 
and  discussed.  For  this  group,  L/R  is  equal  to  one. 

Fig.  3.3  is  a  plot  of  versus  average  end  shortening  for  5  ~  0*5 
(unstiffened  geometry).  These  data  are  generated  for  several  values  of 
full  waves,  n,  around  the  circumference.  From  this  figure,  it  is  clear 
that,  as  the  system  is  loaded  quasi-statically  from  zero,  the  load  deflec¬ 
tion  curve  is  the  same  and  independent  of  n.  The  limit-point  load,  N 
is  definitely  n-dependent.  It  is  observed  that  the  value  of  the  total 
potential  corresponding  to  the  lowest  limit  load  and  associated  n  is  the 
smallest  of  all  values  corresponding  to  the  same  load  and  different  n's 
(at  an  equilibrium  position).  For  this  value  of  §  (which  corresponds  to 

W°  “  0.55  h) ,  the  limit  point  occurs  at  N  =  16,61  Ibs/in.  = 

max  /  >  r 

/  v 

■N  /N  )  =  0.653].  In  the  post-limit  point  region,  the  unstable 

\  XX„^  XX 
cr  cJt 

branch  shows  several  changes  from  n  =  13  to  n  =  12  to  n  =  11.  These 
changes  occur  at  the  unstable  portion  of  the  curve.  The  change  from  n  =  11 
to  n  =  10,  etc.,  to  n  *  8,  occur  at  the  stable  portion  of  the  curves.  This 
implies  that  if  one  can  transverse  the  post- limit  point  branches,  he  would 
move  along  the  n  13  (with  decreasing  load)  curve,  then  along  the  n  =  12 
and  n  ■  11  curves  (with  decreasing  load).  Then,  along  the  n  =  11  curve, 
the  system  moves  with  increasing  load  until  it  reaches  the  n  ^  10  curve. 
Then  it  moves  along  the  n  ■  10  curve  until  it  intersects  the  n  =  9  curve, 
etc.  In  reality,  though,  under  dead  weight  loading,  the  system  reaches 
the  limit  point,  and  then  it  snaps-through  (violent  buckling)  towards 
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Fig.  3.3  Response  of  Unstiffened  Geometry 
(R/t  »  1,000;  L/R  -  1;  I  -  0.5) 


far  stable  equilibrium  positions.  During  the  snapping  process,  it  is 
clear  from  this  figure  that  the  shell  experiences  changes  in  the  circum¬ 
ferential  mode,  corresponding  to  various  n-values.  This  phenomenon  has 
been  observed  experimentally  through  high-speed  photography  for  very  thin 
and  relatively  short  cylindrical  shells. 

Fig.  3.4  presents  similar  data  (as  Fig.  3.3),  but  for  §  =  1.  The 
behavior  is  very  similar  to  that  corresponding  to  5  “  0*5.  Note  that 
curves  corresponding  to  n  *  13,..., 8  are  shown.  Data  are  generated  for 
n  =  14  and  15  but  are  not  shown  on  the  figure.  No  data  are  generated  for 
n  <  8,  because  the  minimum  load  (In  the  post- limit  point  region)  positions 
correspond  to  n  =  9  for  both  ^-values  (Figs.  3.3  and  3.4).  Clearly,  the 
same  observations  are  made  concerning  violent  buckling  with  changing 
circumferential  mode.  Moreover,  data  are  generated  for  5  “  4  and  plotted 
on  Fig.  3.5.  Note  that  for  n  a  10,  there  is  no  limit  point  instability, 
but  for  n  *  9,  8,  and  7  there  exist  limit  points.  The  response,  though, 
as  the  system  is  loaded  quasl-statically  from  zero,  is  along  the  n  =  10 
path  and  snapping  takes  place  at  the  load  level  corresponding  to  unstable 
bifurcation  (the  n  =  10  and  n  =  9  paths  cross).  Even  for  this  imperfection 
amplitude  (5  =  4) ,  violent  buckling  is  predicted  with  change  in  circumferen¬ 
tial  mode.  Finally,  for  the  unstlffened  geometry.  Fig.  3.6  presents  the 
effect  of  the  imperfection  amplitude,  §,  on  the  limit-point  load,  = 

N  /n  ,  and  on  the  minimum  load,  x”  “  N  /N  .It  also  presents 
cr  cl  min  cX 

the  effect  of  Imperfection  amplitude  on  the  dynamic  critical  load,  k  , 

for  the  case  of  constant  load  of  infinite  duration.  This  effect  is 

discussed  in  a  later  section.  Note  that  N  corresponds  to  the  minimum 

min 

equilibrium  load  in  the  post- limit  point  region.  A.s  it  can  be  seen  from 
Fig.  3.6,  the  shell  is  extremely  sensitive  to  initial  geometric  imperfections 
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Fig.  3.6  Plots  of  Load  Parameters  (X^:  limit  point; 

critical  dynamic;  x"*:  minimum  post-limit  point) 
versus  Imperfection  Amplitude  Parameter. 
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(of  virtually  axisymnctric  shape).  Note  that  at  5  *  0.84,  X  is  equal  to 

one  half.  Since  W°  “  I.I5  h,  then  *  0.5,  when  W°  “  0.924  h.  At 

max  max 

5  *  3.5,  X^  ■  0.1,  and  at  |  *  4  the  values  of  X^  and  X™  are  almost  the 
same.  This  means  that  for  ^  2  4,  there  is  no  possibility  of  snap-through 
buckling.  Hie  cylindrical  shell  simply  deforms,  with  bending,  from  the 
initial  application  of  the  load.  Finally,  Fig.  3.7  presents  a  composite 
of  Figs.  3. 3-3. 5,  and  it  includes  pre-limit  and  post-limit  point  behavior 
for  5  “  0.5,  1.0  and  4.0. 

Fig.  3.8  is  similar  to  Fig.  3.4  but  for  R/t  =  500.  Moreover,  Figs. 
3.9  and  3.10  fall  in  the  same  category.  These  geometries  correspond  to 
Examples  22-40,  which  along  with  Examples  8-13  serve  to  study  the  effect 
of  R/t  on  the  shell  response  characteristics.  Note  that  for  all  of  these 
examples,  §  *  1.0  and  L/R  =  1. 

Clearly,  from  Fig.  3.8,  it  is  seen  that  the  response  characteristics 
of  the  shell  are  very  similar  to  those  corresponding  to  R/t  =  1000  (Fig. 
3.4).  The  only  difference  is  that  the  wave  number  n  corresponding  to  both 
the  limit  point  (n  =  11)  and  the  minimum  post-limit  point  equilibrium  load 
(n  =  8)  are  smaller  than  the  ones  for  R/t  =  1000.  According  to  Fig.  3.4 
these  wave  numbers  are  n  ■  13  and  n  =  9  respectively.  Note  from  Figs. 

3.9  and  3.10  that  this  trend  continues  as  R/t  decreases,  and  for  R/t  =  80 
n  =  5  corresponds  to  both  loads.  The  composite  response  is  shown  on 
Fig.  3.11. 

Next,  the  effect  of  L/R  is  examined  through  examples  30-36,  41-49, 
and  53-57  (see  Table  3.1).  All  of  these  geometries  correspond  to  5  “  1 
and  R/t  ~  250,  and  L/R  varies  from  one  to  ten.  The  results  of  this  study 
are  presented  graphically  on  Figs.  3.9,  3.12,  3.13  and  in  the  composite 
of  Fig.  3.14.  It  is  seen  from  these  figures  that  as  L/R  increases,  the 
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Fig.  3. 


7  Fre-  and  Post-Llalt  Point  Response  of 

Unstiffened  Geometry  (R/t  ■  1,000;  L/R  -  1) 
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Fig.  3.12  Response  of  Unstiffened  Geometry 
(R/t  -  250;  L/R  -  5;  |  -  1.0) 
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Fig.  3.13  Response  of  Unstiffened  Geometry 
(R/t  -  250;  L/R  -  8;  |  -  1.0) 
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entire  static  equilibrium  response  corresponds  to  one  wave  number  (n  =  4 
for  L/R  =  5j  n  =  3  for  L/R  *  8  and  10).  Note  also  that  the  n-value 
decreases  as  L/R  Increases.  This  result  seems  reasonable.  In  addition, 
the  sensitivity  of  the  shell  decreases  as  L/R  increases.  This  latter 
effect  is  better  shown  on  Fig.  3.15.  The  dynamic  results  are  discussed 
in  a  later  section. 

Finally,  Fig.  3.16  presents  the  effect  of  R/t  on  the  limit  point 
load,  minimum  post- limit  point  load  and  dynamic  critical  load.  There  are 
two  sets  of  curves,  one  solid  and  one  dashed.  The  solid  curves  correspond 

to  ^  =  1  and  they  imply  change  in  the  imperfection  amplitude  as  R/t 

changes,  since  the  data  are  generated  for  a  constant  R  value  (4  in.). 

The  dashed  line  set  corresponds  to  the  same  imperfection  amplitude  regard¬ 
less  of  the  value  of  the  thickness.  Note  that,  when  R/t  =  1000,  t  =  .004  in, 
since  R  =  4  in.  From  the  amplitude  of  the  imperfection,  one  may  relate 
the  solid  curve  to  §  ■  1  and  the  dashed  curve  to  ^  =  0.016/0.004  =  4. 

Thus,  it  is  very  reasonable  that  corresponding  to  §  =  4  is  much  smaller 
£ 

than  \  .oi-responding  to  ^  1*  On  the  other  end  of  the  curve,  say  R/t  = 

100,  the  opposite  is  true.  For  this  value  of  R/t,  t  =  0.04  in.  Then 
the  dashed  line  curve  corresponds  to  |  =  ,  or  |  =  0.4,  and  X^  corres- 

j> 

ponding  to  5  =0,4  is  expected  and  is  larger  than  X  corresponding  to 
5  =  1.0  (solid  curve). 

For  the  stiffened  geometries,  the  results  are  presented  on  Figs.  3.17- 

3.19. 

The  classical  values  for  N^  are  35,220  Ibs/in.  for  external  position¬ 
ing  of  the  stiffeners  and  19,790  Ibs/in.  for  internal.  The  geometric 
imperfection  for  the  stiffened  geometries  is  not  axisymmetric  but  symmetric 
with  respect  tfo  y  [see  Eqs.  (3.64)].  This  shape  is  similar  to  the  classical 
buckling  mode,  provided  that  n  *  4. 


Fig.  3.18  Response  of  Externally  Stiffened 
Geometry  (§  ■  4;  Axial  Load) 
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Fig.  3.19  Response  of  Internally  Stiffened  Geometry 
(Axial  Load) 
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The  results  for  the  external  positioning  of  the  stiffeners  are 

presented  on  Figs.  3.17  and  3.18  for  ^  equal  to  one  and  four  respectively. 

It  is  seen  from  these  two  figures  that  the  response  is  similar  to  the 

unstlffened  geometry  (Figs.  3.3>3.S),  but  the  number  of  full  circumferential 

waves  Is  smaller  (this  Is  an  effectively  much  thicker  thin  shell).  Note 

that  the  lowest  limit  point  corresponds  to  n  >  4  for  |  ~  1.  On  the  other 

hand,  for  |  *  4,  the  mode  changes  from  n  ■  4  to  n  *  3  and  snapping  occurs, 

because  of  the  existence  of  an  unstable  blfurcatlonal  branch.  In  this 

case  also,  a  change  In  mode  Is  observed  during  snap-through  buckling. 

Another  Important  similarity  to  the  unstlffened  shell  behavior  Is  that 

this  configuration  Is  sensitive  to  Initial  geometric  Imperfections.  Note 

that  when  ^  *  1  (which  means  that  W°  =  h) ,  N  ~  26,200  Ibs/ln.  or 
L 

X  *  0.46.  The  externally  stiffened  shell  Is  not  as  sensitive  as  the 
unstlffened  thinner  shell,  but  It  is  sensitive  to  Initial  geometric 
imperfections . 

The  results  for  the  internally  stiffened  configuration  are  shown  In 
Fig.  3.19.  The  dashed  lines  correspond  to  n  "  4  and  the  solid  lines  to 
n  «  3.  Data  for  other  n-values  need  not  be  shown  on  this  figure.  The 
three  sets  of  curves  correspond  to  §  ■  0.5,  1,  and  4.  Note  that,  for  |  * 
0.5,  limit  point  Instability  occurs  at  N^^  “  17,800  Ibs/in.  with  n  *  4. 

Also  note  that  during  snap-through  buckling,  a  change  of  circumferential 
mode  occurs  (to  n  ~  3).  The  minimum  equilibrium  load  In  the  post-limit 
point  region  corresponds  to  n  *  3.  On  the  other  hand  for  §  "  1,  snap- 
through  buckling  occurs  at  N^^  ■■  16,400  Ibs/ln.  because  of  the  existence 
of  an  unstable  bifurcated  branch  (corresponding  to  n  ■  3).  The  minimum 
equilibrium  load  for  §  *  1  also  corresponds  to  n  ■  3.  Finally,  there  Is 
no  possibility  of  a  snapping  phenomenon  for  §  *  4,  neither  through  the 


existence  of  a  limit  point  nor  through  the  existence  of  an  unstable 

bifurcated  branch.  It  Is  observed  that  this  configuration  Is  not  very 

£ 

sensitive  to  Initial  geometric  Imperfections.  For  |  =  0.5,  X  =  0.9 

I 

and  for  |  *  1.0,  X  *  0.84.  This  Is  attributed  to  two  reasons:  (a)  Inter¬ 
nally  stiffened  configurations  are  less  sensitive  than  externally  stiffened 
ones  and  stiffened  configurations  are  less  sensitive  than  unstlffened  ones, 
and  (b)  for  this  reported  case,  SS-3  with  M  -  a.N  boundary  conditions 
are  used,  which  has  a  stabilizing  effect.  The  primary  reason,  thougih. 

Is  the  former. 

Numerical  results  are  also  obtained  for  a  ring-stiffened  geometry 
under  pressure.  This  Is  the  same  as  Example  1  of  Ref.  31. 

(c)  Ring-Stiffened  Cylindrical  Shell 

L  =  R  =  4  in.;  t  *  0.04  in.;  E  =  10.5  x  lO^psi 

V  »  0.3;  e  =  X  =  0;  X  =  0.91;  p  =  100; 

’  X  XX  *  yy 

(3.62) 

e  =  0.24  in.;  classical  p  =  4827  psi 
y  *^cr 

(x  ,y )  =  §t^  s  in  ^  +  0 . 1  s  in  ^  cos  ^  j ; 

^  =  0.1,  1.0  and  4.0. 

The  results  of  this  study  are  presented  In  graphical  form  on  Figs.  3.20- 
3.22. 

Fig.  3.20  shows  a  plot  of  the  pressure,  p,  versus  the  average  end 
shortening  for  f  1  and  n  »  3.  Itiere  are  three  plots  shown  on  this 
figure  which  serve  to  check  the  effect  of  K  [see  Eq.  (3.40)]  and  the 
number  of  mesh  points,  N.F.,  on  the  convergence  of  the  solution.  This 
effect,  as  characterized  by  Fig.  3.20,  Is  typical  for  all  §  and  n  values. 
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clearly,  neither  effect  is  significant  for  pre-limit  point  behavior  and 
post- limit  point  behavior  up  to  the  minimum  load.  Beyond  this  range,  the 
effect  of  NP  is  very  small,  while  the  effect  of  K  can  be  significant. 
Therefore,  if  one  is  Interested  in  the  response  characteristic  up  to  the 
minimum  post- limit  point  load,  both  effects  are  insignificant.  In  this 
particular  study,  one  is  Interested  in  establishing  limit-point  loads 
(critical  static  loads)  and  dynamic  critical  loads  which  depend  on 
accurately  predicting  the  response  in  the  unstable  portion  of  the  post¬ 
limit  point  behavior.  (The  value  of  the  modified  total  potential  goes 
to  zero  in  this  range  if  a  critical  dynamic  load  exists.)  The  conclusion 
is  that  K  *  1  and  NP  =  35  suffice  for  this  study,  since  the  cpu  time 
increases  rapidly  with  Increases  in  both  K  and  NP. 

Fig.  3.21  shows  the  effect  of  n  for  ?  =  1.  This  effect  is  the  same 
for  the  other  §  values,  and  n  *  3  characterizes  the  true  response  of  the 
ring-stiffened  shell.  Fig.  3.22  shows  the  response  of  the  shell  for  all 
three  values  of  ?  (and  n  *  3) .  Note  that  for  %  “  0.1  and  1.0,  the  shell 
expands  in  the  axial  direction  (negative  end  shortening)  up  to  the  limit 
point  and  then  it  starts  to  contract.  For  |  =  4,  initially  there  is  an 
expansion,  but  contraction  commences  before  reaching  the  limit  point. 

Note  also  that  this  configuration  is  rather  sensitive  to  initial  geometric 

i  I 

imperfection  (for  §  “  0.1,  \  =  .94;  for  |  ■  1.0,  X  ■  0.80;  for  §  *  4.0, 

I 

X  =  0.59).  Note  also  that  the  agreement  between  the  value  reported 

in  Ref.  31  for  )  and  5  *  1  and  the  present  one  is  very  good.  Moreover, 

the  value  of  n  (’■3)  is  the  same  for  both. 

Critical  Conditions  for  Sudden  Application  of  the  Loads. 

As  stated  previously,  a  critical  dynamic  condition  exists  if  the 

modiiicd  total  potential,  ,  becomes  zero  at  an  unstable  static  equili- 

mod 
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Fig.  3.22  Response  of  Ring-Stiffened  Geometry  (pressure  load; 


brlum  point  and  motion  can  escape  through  this  point.  (A  trajectory  can 
possibly  exist  for  "buckled"  motion.) 

For  the  axially- loaded  unstlffened  geometry,  the  results  are  presented 
both  In  tabular  form  (Tables  3.1  and  3.2)  and  In  graphical  form  (Figs.  3.6, 
3.15  and  3.16) . 

The  critical  dynamic  load  Is  obtained  from  the  static  solution.  It 
corresponds  to  a  load  (static)  for  which  the  unstable  (post- limit  point 
curve)  equilibrium  point  yields  a  value  zero  for  the  modified  total 
potential.  The  expression  for  the  modified  total  potential  Is  given  by 
[see  Eqs.  (3.16)  and  (3.19)] 

Pi  —2  -2 

Un,  “  nRLN  +  2TTRLa,N 

T  .  T  E  XX  1  XX 


(  3.63) 

-  +  TTRLa-N^ 

T  1  XX 


It  is  seen  from  Tables  1  and  2  that  when  a  limit  point  exists  and 
the  difference  between  the  limit  point  load  and  the  minimum  post-limit 
point  load  Is  distinct,  then  a  clear  dynamic  critical  load  exists.  On 
the  other  hand.  If  there  Is  no  limit  point  (Examples  17-21  of  Table  3.1), 
there  Is  no  critical  dynamic  load.  Similarly,  If  the  value  of  the  limit 
point  load  Is  very  close  to  that  of  the  minimum  post-limit  point  load.  It 
Is  difficult  to  have  a  critical  dynamic  load  (see  Examples  35,  36,  and 
39  of  Table  3.1).  Fig.  3.6,  among  others,  shows  a  plot  of  versus  the 
Imperfection  amplitude  parameter,  §.  On  the  basis  of  the  definition  of 
critical  dynamic  load,  starts  from  one  and  decreases  to  the  common 
value  of  X"^  and  X°  at  §  ■  4.  Since  the  static  behavior  for  5  >  4,  is  not 
one  of  limit  point  Instability,  then  there  Is  no  critical  dynamic  load  for 
these  §  values,  according  to  the  concept  and  criterion  discussed  at  the 
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beginning  of  the  chapter  [see  Eq.  (3.2)].  On  the  other  hand,  if  the 
dynamic  response  is  limited  in  the  space  of  the  displacement  components, 
then  a  critical  load  can  be  defined.  This  point  is  discussed  in  Ref.  1 
and  in  Chapter  5  of  the  present  report. 

The  effect  of  L/R  is  shown  on  Fig.  3.15.  The  value  of  is  very 
low  for  L/R  equal  to  one  (X*^  *  0.2)  and  it  increases  rapidly  with  increas¬ 
ing  L/R  values  to  X^  =  .48  at  L/R  *  10.  This,  of  course,  holds  true  only 
for  ^  *  1.0,  but  a  similar  behavior  is  observed  for  ^-values  for  which  the 
static  behavior  is  the  same  as  for  |  =  1.0  (see  Figs.  3.3  and  3.4;  but  not 
3.5). 

For  the  axially- loaded  stiffened  configuration,  the  results  are 
presented  on  Fig.  3.23.  It  is  seen  from  this  figure  that  the  internally 
stiffened  geometry  (under  static  conditions)  is  not  as  sensitive  as  the 
externally  stiffened  one.  Moreover,  the  ratio  of  the  dynamic  load  to  the 
static  (X**/X'^)  is  higher  for  the  internally  stiffened  geometry.  Note  that 
the  results  for  the  internally  stiffened  geometry  do  not  extend  past  |  =  1.0. 
This  is  so  because  the  atatic  behavior  will  soon  (|  =  1.5  or  so)  cease  to 
be  of  the  limit  point  instability.  On  the  other  hand,  the  results  for 
external  stiffening  extend  to  ^  =  4. 

It  is  seen  that  the  largest  difference  (or  smallest  ratio  X*^/X^) 
between  the  static  and  dynamic  critical  loads  occurs  at  |  -  1.0  (see  Figs. 

3.6  and  3.23),  for  axially  loaded  geometries. 

For  the  pressure- loaded  ring-stiffened  geometry,  critical  dynamic 
loads  are  obtained  by  setting  the  modified  potential  equal  to  zero  [see 
Eq.  (3.2)].  For  this  csse,C,  for  a  given  load,  denotes  the  potential 
associated  with  the  static  primary  path  mode.  This  means  that  the  corres¬ 
ponding  st.itic  problem  must  be  solved  (without  allowing  static  buckling) 
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with  regard  to  static  application  of  the  pressure  and  by  finding  the 
corresponding  axisymnetrlc  displacement  (breathing  mode).  Then  at  each 
level  of  the  pressure,  the  corresponding  total  potential  Is  calculated 
and  for  each  value  of  p  this  corresponds  to  the  value  of  C  In  Eq.  (3.2). 

The  estimated  results  for  dynamic  critical  pressure  along  with  the 
limit-point  values  and  the  minimum  post-limit  point  values  are  shown  on 
Table  3.3.  Only  results  corresponding  to  n  >  3  are  shown,  because  this 
value  of  n  governs  static  and  dynamic  building. 


Table  3.3  Pressure-Loaded,  Ring-Stiffened  Cylindrical  Shell. 


n 

5 

1 _ 

k 

%.! 

d 

Ppsi 

m 

^  psi 

d,  1 

P  /P 

3 

4,500 

4,470 

3,000 

0.9933 

3 

3,845 

3,790 

2,970 

0.9857 

3 

4.0 

2,830 

2,755 

2,740 

0.9735 

It  is  seen  from  these  results  that  the  reduction  in  critical  pressure, 
because  of  the  sudden  application  (dynamic  versus  static),  is  very  small. 
This  should  not  be  considered  as  a  general  conclusion,  but  more  data  need 
to  be  generated. 
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SECTION  IV 


THE  PINNED  HALF-SINE  ARCH 

In  this  particular  chapter  the  concepts  of  dynamic  stability  are 
applied  to  a  half-sine  low  arch,  subjected  to  a  transverse  load  with 
a  half-sine  spatial  distribution.  The  static  analysis  of  such  an  arch 
may  be  found  In  Ref.  32.  Some  dynamic  stability  aspects  of  this  or 
similar  geometries  may  be  found  In  Refs.  2,  11,  33,  34  and  35.  In  this 
chapter  some  of  these  studies  are  stsimarlzed,  particularly  those  of 
Refs.  2,  11,  and  35.  These  studies  Include  loads  of  constant  magnitude 
and  finite  durations  (as  well  as  the  extreme  cases  of  the  duration  time 
approaching  zero  and  Infinity),  and  the  study  of  various  effect,  all  of 
which  are  presented  In  Ref.  1.  These  Include,  the  effect  of  static  pre- 
loading  and  small  dsmplng. 

Geometry  and  Governing  Equations 

Consider  a  slender  arch  of  small  Initial  curvature  and  synmetrlc 
cross  section.  Furthermore,  w^(x)  denotes  the  Initial  shape  of  the  middle 
line,  w(x)  the  shape  of  the  middle  line  after  deformation,  and  u(x)  the 
horizontal  displacement  of  any  point  of  the  midplane  (see  Fig.  4.1).  The 
following  nondlmenslonallzatlon  Is  Introduced 

w(x,t)  -  pT)  (5,t)  where  ^ 

t  ■  T  - where  ■  (n  p/L)^  (4.1) 

p  * 

and  E  Is  the  Young  Modulus  and  q(^,t)  ■ - r  Q  (x,t) 

ae*e 
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where  Q  (x,t}  denotes  the  external  force  per  unit  length. 

The  specific  problen  to  be  considered  in  this  section  consists  of  a 
low  pinned  arch  for  which  w^(x)  and  consequently  is  a  half-sine-wave. 

The  distributed  load,  which  is  applied  suddenly  with  constant  magnitude  for 
a  finite  duration,  r^,  is  also  a  half-slne-wave.  The  Initial  shape  is  given  by 

11^(5)  -  esln§0<5<n  (4.2) 

where  e  is  the  initial  rise  parmeter.  Since  (w^)  *  P  e  and  e  ■■ 

"  max 

\ 

^  o^max  ,  and  if  the  cross  section  is  rectangular  of  width  b  and  thick- 

P  Yi  ^*o^max 

ness  h,  then  p  =•  and  e  ■  2/3 - r- -  ,  which  clearly  shows  that  e  is  a 

2/  3 

measure  of  the  ratio  of  the  initial  maximum  rise  to  the  thickness  of  the 
arch. 

The  expression  for  the  loading  is  given  by 

q(?.T)  -  qjCT)  sin  S  (4.3) 

The  response  of  the  arch,  1l(§,t)  is  represented  by 

2 

T1(?,t)  -  \(5)  +„Sl  “n  sin  T15,  0  <  5  <  IT,  r  >  0  (4.4) 

Complete  analysis  of  the  problem  is  given  by  Simitses  in  references  11  and 
32. 

A  more  convenient  set  of  equations  may  be  obtained  by  introducing  the 
following  new  parasMters 

r  ■  Sj^  +  e  and  p  “  q^^  +  e  (4.5) 

the  expression  for  the  nondlmensionalised  total  potential  under  p 
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Section  A-A 
(a)  Geometry 


Fig.  4.1.  The  Low  Arch;  Geometry  and  Sign  Convention 


*  — * — 


*^1 

where  the  total  potential  under  the  load  and  = 


•n^EI 

— denoting  the  first  Euler  load j  is  given  by 


ijP  *1/2  -2  ^  /.  -2,2  ,  J.  Jl  .  ,,1 


e  +4  a-)  +  r  -  e  +  16a,  +  2p(e-r) 


(4.6) 


which  is  quite  similar  to  the  potential  energy  for  the  two-degree  of  freedom 
model  (Model  C)  discussed  in  Ref.  1. 

Furthermore,  neglecting  the  rotatory  and  in-plane  kinetic  energies, 
the  following  expression  for  the  nondimensionalized  kinetic  energy 
(T  is  the  kinetic  energy)  is  obtained. 


n  o 


T-^  JUdS 


(4.7) 


Use  of  Eq.  (4.4)  in  Eq.  (4.7)  yields  the  following  expression  for  T 


o2  ^  o2 
r  +a2 


(1  +  a'S  r^ 


(4.8) 


where  (  ) 


5  j  .  o  ,  d 

^  (  >  "  df 


Critical  Dynamic  Conditions 

Dynamic  Stability  under  constant  load  of  finite  duration  has  been 
discussed  in  Ref.  1  and  throu^  simple  mechanical  models,  criteria  and 
estimates  for  critical  conditions  were  presented.  The  same  problem  is 
posed  here,  but  applied  to  a  pinned  low  arch. 

The  expression  for  the  "zero  load"  total  potential  is  given  by 

2 

^  +  8)  +  a2(2a2  +  r^  +  16  -e^  (4.9) 
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Through  a  static  stability  analysis,  the  following  stationary  points  on 
the  "zero  load  total  potential"  are  obtained: 

Ft.  1  at  Ce,0]  Stable  (Relative  min.) 

Ft.  2  at  (-e  +ye^-16),oJ  Unstable  (Relative  max*) 

Ft.  3  at  +  ^^^-16) ,  Oj  Stable  (Relative  min.) 

Ft.  4  at  - ^  Unstable  (Saddle  point) 

Ft.  5  at  I  ~  Unstable  (Saddle  point) 

It  is  proven  (Ref.  11)  that  saddle  points  exist  for  e  >  4.  For  this 
range  of  e-values,  the  "zero  load"  total  potential  value  at  the  saddle 
points,  pts.  4  and  5  is  smaller  than  the  corresponding  value  at  the 
relative  maximum,  pt.  2.  On  the  basis  of  this  observation  the  motion 
can  possibly  become  "buckled"  through  the  saddle  points,  pts.  4  and  5. 

The  corresponding  condition  for  this  case  is  a  "possible  critical  con¬ 
dition".  On  the  other  hand,  if  the  imparted  energy,  by  the  applied  force 
at  the  release  time,  is  sufficient  to  reach  the  relative  maxinum  (unstable) 
static  equilibrium  point,  pt.  2,  "buckled"  motion  is  guaranteed  and  the 
corresponding  critical  condition  is  a  'hilnimum  guaranteed  one".  The  former 
is  termed  sufficient  condition  for  dynamic  stability  while  the  latter 
sufficient  condition  for  dynamic  instability  by  Hsu  [6  -  10]. 

Next,  the  conqiutatlonal  procedure  for  finding  the  possible  critical 
condition  is  outlined. 

The  stability  criterion  for  this  case  (see  Ref.  1)  is  expressed  by 

(T,)  -  -SjCT,)  S  0°  (ij)  (4.10) 

where  is  the  unstable  static  equilibrium  point  under  zero  load  and 
the  release  time.  The  equality  sign  refers  to  a  critical  condition,  while 
the  inequality  sign  refers  to  a  dynamically  stable  condition. 
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For  a  given  path  of  motion,  integration  of  Eq.  (4.12),  yields  a  relation 

between  the  time  of  release  and  the  position  at  that  Instant.  Note,  that 

the  problem  has  been  cast  In  the  following  terms:  for  a  given  load,  p, 

find  the  smallest  release  time,  t  ,  such  that  the  system  may  reach  an 

cr 

unstable  point  (saddle  point  for  the  minimum  possible  critical  condition) 

with  zero  velocity,  Eq.  (4.11).  Since  one  Is  Interested  in  obtaining  the 

smallest  release  time,  t  ,  and  since  the  position  at  the  time  of  release 

cr 

Is  path  dependent,  one  can  solve  the  problem  by  considering  the  associated 
brachistochrone  problem.  The  brachlstonchrone  problem  makes  use  of  Eq.  (4.12) 
for  this  system,  and  through  its  solution  one  obtains  the  relation  between 


the  smallest  release  time,  ,  the  position  at  the  instant  of  release, 

”cr 

as  well  as  the  path  that  yields  t  .  the  details  of  the  solution  to  this 

cr 

brachistochrone  problem  are  similar  to  the  ones  presented  In  Ref.  1.  for 
the  two-degree-of>freedom  model.  Model  C.  The  solution  to  the  brachisto¬ 


chrone  problem  yields  that  the  minimizing  path  Is  characterized  by  a^  =  0 

(symnetrlc  path)  and  the  relation  between  r  and  the  position  of  the 

°cr 

sysLcrm,  r  ,  at  T  Is 
■'  ’  cr  o 

cr 
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r 


r 

cr 

To  -/  i 

/e  ‘\/2p(r  -  e)  +  (r^  - 

Computationally,  It  Is  simpler  for  one  to  assign  values  o£  r^^  (starting 

with  values  close  to  the  initial  position,  r  >  /e  and  a2  ■  0),  solve  for 

p  through  Eq.  (4.11)  and  then  for  through  Eq.  (4.13). 

°cr 

Note  that  for  the  case  of  the  minimum  guaranteed  critical  condition 
Eq.  (4.11)  is  replaced  by  a  comparable  equation  which  employs  the  value 
of  the  "zero  load"  total  potential  at  the  relative  maximum  tmstable  static 
point . 

Numerical  results  are  presented  graphically  on  Figs.  4.2  and  4.3,  for 

the  minimum  possible  critical  condition  only,  and  various  values  of  e.  The 

curves  of  Fig.  4.2  depict  critical  conditions  in  terms  of  applied  load,  p, 

versus  critical  release  time,  r  .  One  may  observe  that  as  the  t  in- 

cr  cr 

creases,  the  corresponding  load  approaches,  asymptotically,  the  value  of 

p^^  for  the  infinite  duration  time.  Fig.  4.3  presents  the  same  results  as 

Fig.  4.2,  but  in  terms  of  (pT  )  versus  critical  release  time  r  .  Note 

^  °cr 

that  as  T  approaches  zero,  the  value  of  (pr  )  approaches  that  of  the 
o  o  cr 

cr 

critical  ideal  impulse  (see  Ref.  11) . 

Effect  of  Static  Preloading 

In  evaluating  the  effect  of  static  preloading,  three  values  are 
chosen  (e  ^  5.0,  6.0,  8.0),  and  for  each  e-value  the  system  is  initially 
loaded  quasi-statically  with  a  p^-  load  smaller  than  the  p^^  -  static. 
Then,  the  system  is  loaded  dynamically.  The  following  values  are  used  in 
the  dynaaic  analysis. 
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FIk.  4.2.  Constant  Load,  p,  versus  Critical  Duration  Time,  ,  pinned  Arch 


e 

-  4.5 

-  -6.18 

’  Po  “ 

BES 

-3.0, 

-5.0 

cr 

e 

“  5.0 

•  Pst 

“  -9.0 

Po  = 

m 

-4.0, 

m 

cr 

e 

-  6.0 

•  Pst 

=  -13.41 

•  Po“ 

m 

-6.0 

cr 


First,  the  extreme  cases  (t^  ••  0  and  "*  »)  are  analyzed  by 
employing  the  proper  energy  equations  (see  Ref.  1,  Section  6). 

For  example,  for  the  ideal  impulse  case,  the  impulse  is  related 

_Po 

to  an  initial  kinetic  energy,  (the  impulse  is  Imparted  into  the 
system  as  initial  velocity)  and  from  conservation  of  energy  (for  the 
pre loaded  system) 


+ f 


p 

i 


o 


(4.14) 


P 

where  L  near  static  (stable)  equilibrium  position  under  P 

I  S  _P  ° 

(static  preloading).  Then  T^^^is  critical  (and  the  corresponding  ideal 

I  impulse)  if  the  system  can  reach  the  unstable  static  equilibrium  point, 

I  P 

j  with  zero  kinetic  energy,  or 


P  P  P 

T  °  =  U  °  (L  °) 
1  T  '  u  ^ 

cr 


p  p 


(4.15) 


For  the  seccmd  extreme  case  (t^  -•  »)  ,  p^^  may  also  be  obtained  from 
energy  consideration  and  the  criteria  developed  in  Ref.  1.  The  charac¬ 
teristic  equation  for  this  case  is  obtained  from 


+  P 


(4.16) 


^  The  ideal  impulse,  (pr^^)  may  be  related  to  the  initial  kinetic  energy 
Tj  (in  the  nondimens ionallzed  form  -  see  Refs.  2  and  11)  by  the  expression 
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,  P  V  1/2 

(■.To)  -  -  tV  (r.  “)] 


(4.17) 


where  is  the  near  static  (stable)  equilibrium  position  under  load 


The  critical  ideal  Impulse,  through  Eqs.  (4.17)  and  (4.15),  is 


obtained  by 


P./  P  .  P./  P. 


(pv„  >  -  cVC'u**)  - 


(4.18) 


Note  that  the  negative  sign  on  the  right  hand  side  of  Eqs.  (4.17) 
and  (4.18)  is  present  because  of  the  sign  convention  on  the  load  p  (see 
Fig.  4.1).  The  expression  for  the  total  potential  is  given  by  Eq.  (4.6). 
The  numerical  results  are  presented  on  Table  4.  1. 


Table  4.1  -  Critical  Ideal  Impulse,  (P''’q)j.j* 


Note  that  the  first  row  gives  the  ideal  Impulse  without  static  pre- 
loading.  Note  also  that,  as  the  value  of  p^  approaches  the  value  of 
the  static  critical  load,  the  additionally  imposed  critical  Impulse 
tends  to  zero.  This  is  reflected  by  the  results  of  the  last  row 
(Table  4.1). 

The  critical  load  for  Che  case  of  infinite  duration,  p  ,  is 

^cr 

00 

obtained  by  the  following  steps,  for  a  given  e,  p^  combination. 

a)  Solve  Che  symmetric  response  equilibrium  equation  (see  Refs.  2,  11, 

P 

32) ,  given  below,  for  r^  (near  stable  position) 

P  3  ,  P 

(r°)  -  (e-"  -  4)  r^°  =  4  p^  (4.19) 

b)  The  static  unstable  (saddle)  equilibrium  positions  are  characterized 
by  (see  Ref.  32) 

Po  +  P 

- - j- 


2  1  r  2  Po^ 

and  *2  “  4  - ‘ 


(4.20) 


c)  Eq.  (4.16)  for  this  system  becomes 


12  22222  2 

g  (r  +  4a2  -e)  +r  -e  +  16a2  +2  (p^  +  p)  (e  -  r) 


I  +  rV  e^  +  2  (p^  +  p)  (e  -  r^®) 


(4.21) 


P  +P 

The  stlmulaneous  solution  of  Eqs.  (4.20)  and  (4.21)  yields  r^®  and 


cr 
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The  nvnerlcal  results  £or  all  e,  combinations  are  presented  In 
tabular  form  on  Table  4.2. 


Table  4.2  -  Critical  Dynamic  Loads,  p^^  ,  (Infinite  Duration) 


e  •  4.5 

c  -  5.0 

e  “  6.0 

Po 

-cr. 

o  cr^ 

Po 

P 

P +P 
o  cr 

OD 

P 

o 

P 

cr 

or 

P  +P 

0 

-3.7 

-3.7 

0 

_ 

-5.20 

-5.20 

— 

0 

-8.8 

-8.7 

‘1 .0 

-4.05 

-5.05 

-2.0 

-5.54 

-7.54 

-3.0 

-8.61 

-11.61 

-3.0 

-2.54 

-5.54 

-4.0 

-3.90 

-7.90 

-4.0 

-8.02 

-12.02 

-5.0 

-0.99 

-5.99 

-6.0 

-2.24 

-8.24 

-6.0 

-6.77 

-12.77 

-6.18 

0 

-6.18 

-9.0 

0 

-9.00 

-13.41 

0 

-13.41 

Note  that  the  first  row  results  of  Table  4.2  are  taken  from  Ref.  11. 

The  results  of  the  last  row  reflect  the  fact  that  If  the  system  Is 

loaded  quaslstatlcally  up  to  the  limit  point,  then  the  additional 

suddenly  applied  load  that  the  system  can  withstand  tends  to  sero. 

Finally,  for  the  case  of  constant  load,  p,  applied  suddenly  for 

a  finite  duration,  r  ,  critical  conditions  are  obtained  from  the 

o 

following  steps: 

P  P  P 

a)  From  the  static  stability  analysis  obtain  r^°,  r^°  ,  and  a2°  , 

u 

for  each  p  . 

b)  Use  of  the  energy  balance  for  this  model  and  load  case  ^see  Eq. 
(6.9)  of  Ref.  l]  yields 
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2p  (r 


P 

-  r  °) 

°cr  ® 


1  /o 

o’ 

8  u 


2  ^  ,  0,2 
-  e  +  4a-  ) 


+  /■’  +  16.j°  -  i  (r'«  -  ^  22) 

u 


where  is  the  position  r  at  the  Instant  of  release  of  the  load  p 

(t  =  T  ) .  In  Eq.  (4.22),  for  a  given  geometry,  e,  and  static  load,  ^  , 
o  P  P  P  ° 

everything  Is  known  (p^,  e,  r^°,  r^°  and  s^°)  except  for  p  and  r^^. 
Therefore,  Eq.  (4.22)  relates  p  and  r^^  at  the  critical  condition. 

/  2 

c)  Since  >  then  from  Eq.  (6.4)  of  Ref.  1,  one 

may  write 


1 

P  P  +P  P  P  +P  "2 

dT  =  I^U  °  (r  °)  -  U  °  (r,  a  )j  dr  (4.23) 


Invoking  the  same  techniques  as  the  ones  used  for  the  same  problem  but 
without  static  preloading  In  the  previous  case,  the  critical  time  Is 
computed  on  the  symmetric  path  a^  =  0. 

Integration  from  t  ■  0  to  t  =  and  use  of  the  expression  for  the 
total  potential  [see  Eq.  (4.6)]  yields 


cr, 

*'  P 
r  o 
s 


18  \  s 


+  r 


+  2  (p  +  p^) 


1 

2 

dr 


(4.24) 


Note  that  Eq.  (4.28)  also  relates  r^^.  to  p. 
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A  critical  condition  is  characterized  by  (p,  t^)  that  satifics  both 

equations,  Eqs.  (4.22)  and  (4.24)  .  This  means  that  for  a  given  release 

time,  T  ,  find  or  for  a  given  p  find  .  Computationally,  though, 

cr 

it  is  easier  to  assign  values  of  r^^,  solve  for  p  from  Eq.  (4.22)  and  then 

for  the  corresponding  from  Eq.  (4.24). 

A  computer  program  has  been  written  for  these  computations.  Values 

P 

of  r  are  assigned,  starting  with  r^*’  +  &r,  where  6r  is  very  small,  and 
cr  » 

computing  the  corresponding  values  of  p  and  t  for  each  6r. 

°cr 

The  results  are  presented  graphically  on  Figs.  4.4  -  4.9  for  the 

three  values  of  e.  On  the  first  three  figures,  critical  conditions  appear 

as  plots  of  p  versus  duration  time,  t  .  Note  that  as  t  became  larger 

°cr  °cr 

and  larger,  the  corresponding  value  of  p  approaches  p^^  (see  Table  4.2). 

00 

On  the  last  three  figures  (4.7  -  4.9)  critical  conditions  appear  as  plots 
of  (PTq)j.j.  versus  duration  time,  .  On  these  figures,  as  -•0,  the 
corresponding  value  of  approaches  the  critical  ideal  Impulse  (see 

Table  4.1) . 


Consi<4rii  load,  p,  versus  critic.il  Uurat 


versus  critical  I  Dur*Ttlon  Time,  ;  Preloaded  pinned  Arch,  e»6.0 

cr 


Impulse,  (p*  )  versus  critical  Duration  Time,  f ^  ;  Preloaded  pinned  Arch 

o  cr 


Kffect  of  Small  Damping 

In  this  section,  the  effect  of  small  damping  on  the  dynamic  stability 
of  the  arch  (subjected  to  a  constant  load  of  finite  duration)  Is  Investi¬ 
gated.  If  p,  Indicates  the  damping  coefficient,  the  dissipated  energy  D, 
because  of  damping.  Is  given  by  [see  Section  VII  of  Ref.  1  for  concepts  and 
details] 


D 


/  /  It  '*''  ‘^^  ***  “ 

V  w 


dw  dx 


(4.25) 


where  v  stands  for  volune. 

Recalling  that  w  =■  p  (5)  +  r  (t)  sin  §  +  a2  (t)  sln2|},  where 
2  1  L 

p  =  ^  and  X  =  —  I,  then  Eq.  (4.25)  becomes 
2  n 

D  =  A  J  ^  (f  sin  §  +  82  sin  2  5)  (dr  sin  |  +  da^  sin  2  ?)  d  5  (4.26) 
o  r,a2 

Since  the  symnetrlc  path  (a2  =  0)  Is  the  solution  to  the  undamped  system, 

and  since  the  Integrand  In  Eq.  (4.26)  must  contain  only  functions  of  the 

undamped  system,  then  D  reduces  to 

r  r^ 

D  .  A  J  rrdr  J  8ln^5d|  -  J  rrdr  (4.27) 

Co  e 


The  nondimenslonallzatlon  of  D  Is  given  by 


4D 


-P 

r 

cr 


P  e  L 
*^E  E 


(I  J  rrdr 


e. 


2p.p^aVe-^ 

where  JT  ■  •= - r —  Indicates  the  nondlmenslonallzed  damping  coefficient, 

E  ®E  - 
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and  (°)  *  S-  with  t  given  In  Eqs.  (4.1). 

O  T 

p 

since  r  Is  expanded  In  Taylor's  series  of  u  as 
cr 


P  P  -  P  -2 

c  oc  ^Ic  ^  / 

r  r  r 


(4.28) 


dnd  ^r  stands  for  the  critical  r-coordlnate  for  the  undamped  system.  Then 
Eq.  (4.10)  yields 


o  c  =  e 
r 


<T  • 

e  -  p 


(4.29) 


However,  the  trajectory  that  the  system  follows,  from  the  time  of  release 

of  the  load  until  It  reaches  the  unstable  saddle  point  i”r=-^,a-  =  ± 

L.  j  fc 

2e2 

—  ■  4j  ,  Is  unknown.  Since  Eq.  (4.25)  gives  the  dissipated  energy 
during  this  period  of  time  as 


e 

3 


5  =  u  J  J*  (sin  I  +  a2  sin^  2^)  r  dr  d^ 


r  w 
o  cr 


then  by  following  the  same  procedure  as  in  Section  VII  of  Ref.  1  for  Model 
C,  a  conservative  estimate  for  the  critical  condition  Is  obtained  by  assuming 
a  symmetric  path  (a2  =  0) . 

Then,  from  Eq.  (7.10)  of  Ref.  1 


P  J*  ^  rr  dr 

1  Je _ 

^  ‘'r  “  ■  2  (  e  -  p) 


(4.30) 


Moreover,  assuming  zero  Initial  conditions,  through  the  equation  of  motion, 
Eq.  (4.23),  along  the  symmetric  path  (a2  -  0)  for  the  undamped  system,  one 
obtains 
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r  =  -  /  -2  p  (e  -  r)  +  —  (2  e  -r^  -  8)  -  ^  (e^-8) 


(4.31) 


where  r  =  r  if  r  <  r  and  ir  =  r  if  r  >  r  .  From  Eq.  (4.30) 

cr  cr  cr 

e  _ 

3  1  I  2  '  2l 

p  V-  2p  (e  -  ?)  +  |-  (2e  -  r  -  8)  -  |-  rdr 

“  ■  2  (e  -  p) 


(4.32) 


In  addition,  the  critical  time  t  may  be  found  through  Eq.  (7.2)  of  Ref. 

cr 

1.  Recalling  that  the  kinetic  energy  is  given  by  Eq.  (4.8),  the  criti¬ 
cal  time  T  is  given  by 
°cr 


■J 


cr 


dr 


cr  e 


J  ~2p  (e  -  r)  + 


r^  I 


7 - ^ - 7~2 - -  ^ 

•g—  (2e  -  r  -8)-  —  (e  -8)-p,j  xxdx 

e 


(4.33) 


Expanding  t  in  Taylor's  series  of  pi  (pi  <  <  I)  one  may  write 


cr 


T  =T  +U.,T  +0(11) 

o  oo_  ^lo^  ^ 

cr  cr  cr 


Note  that  t  is  the  critical  time  for  the  undamped  system  and  it  is 
°cr 

given  by 


r 

o  cr 


T  T  f 

)  O  *0  n  *  ■ 

cr  cr  pi  ■  0  J 


dr 


/2  2 

•2p  (e  -  r)  +  |-  (2e^-r^-8)  (e^-  8) 


(4.34) 


Moreover,  from  Eq.  (4.33),  one  may  find  the  expression  for  ,  or 

1  o 

cr 
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9  T 


cr 


cr 


9(1 


-o'^cr 

is  - 


j*  ^dx 


2  2  3/2 

[-2p(e  -  r)  +  |-  (2e^-  -  8)  |-  (e  -  8)  ] 


8 


l^cr 


(4.35) 


[-2p(e  -  4.  ^  (2e2.  -  8)  -  (e^  -  8)] 


8 


o  cr 


8 


where  corrections  depend  only  on  undanped  system  parameters . 

‘’cr 

The  governing  equations  for  finding  critical  conditions  In  the  presence 

of  small  damping  ((I  <  <  1)  are  Eqs.  (4.29),  (4.32),  (4.34)  and  (4.35). 

These  four  equations  relate  the  given  small  damping  coefficient  JI,  the 

applied  load  p,  the  time  parameters  and  ,  and  the  position  para- 

p  p  cr  cr 

meters  r  and  ,r  ,  A  critical  condition  Is  expressed  in  terms  of  a 
o  cr  l  cr 

load  level  p  and  the  corresponding  time  t  *  ^  +  UiT  .  Thus,  a 

O  0  0  o  ^ 

cr  cr  cr 

critical  condition  may  be  found  by  posing  the  problem  as  follows:  for  a 
given  small  damping  coefficient  p,  and  load  level  p,  find  (through  the 
simultaneous  solution  of  the  four  governing  equations)  the  corresponding 

p 

critical  time  parameters,  t  and  ,t  ,  and  position  parameters,  r 

o  o  1  o  ’  ’  o  cr 

p  cr  cr 

and  Note  that  the  range  of  p-values  (assigned)  must  be  greater  than 

dynamic  critical  load  for  the  case  of  a  suddenly  applied  constant  !oad  of 
Infinite  duration,  without  damping.  The  computational  procedure  Involves 

p 

the  following  steps:  (a)  assign  a  p-value  and  compute^r  from  Eq.  (4.29), 

p 

(b)  employ  Eq.  (4.32)  and  solve  for  (c)  from  Eq.  (4.34)  solve  for 

0^0  ,  and  finally  (d)  employ  Eq.  (4.35)  and  solve  for 

cr  i  O  _ 


cr 
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A  computer  program  la  written  to  accomplish  the  solution  and  numerical 


results  are  generated  for  three  values  of  the  arch  rise  parameter  e 
(e  >>  4.5,  8.0,  12.0).  Theae  results  are  presented  on  Table  4.3. 

Note  that,  since  a  critical  condition  corresponds  to  a  set  of  p,  t 

°cr 

values,  a  small  damping  coefficient  p,  has  a  stabilizing  effect*  This 

effect,  though,  la  very  small.  For  Instance,  at  the  high  values  of  the  load 

p  (say  for  e  •  4.5,  p  «  -119.00)  the  corresponding  value  for  t  (if  =  0.04) 

°cr 

is  0.098  +  0.0015  »  0.0995.  Remember  that  the  p  -  t  curve  for  the  un- 

o 

cr 

damped  system  (see  Fig.  4.2)  Is  very  steep  at  the  high  p-value  and  virtually 

flat  at  the  low  values  of  p.  On  the  other  hand,  when  p  =  -7.21  (a  value 

close  to  p  *  -6.18)  the  corresponding  critical  time  is  t  =  0.59  +  0.04 
00  °cr 

=  0.63.  Since  the  curve  la  very  flat  at  this  load  p-value,  one  may  conclude 

that  the  effect  of  small  damping  Is  virtually  negligible. 
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SECTION  V 


OTHER  SYSTEMS 

As  explained  in  Chapter  1,  it  is  possible  to  extend  the  concept  of 
dynamic  buckling  to  all  structural  systems  regardless  of  their  behavior 
under  static  application  of  the  loads  (see  Figs.  1.1  -  1.5).  This  extension 
is  presented  in  Ref.  1,  and  it  is  based  on  limiting  the  deflectional  response 
of  a  structure  (when  loaded  suddenly),  which  is  in  agreement  with  requiring 
boundedness  of  deflectional  response.  One  should  observe  that  in  limiting 
the  deflectional  response^ boundedness  is  automatically  satisfied  (in  some 
cases  enforced),  while  the  reverse  is  not  true. 

Some  examples  are  presented  in  this  chapter,  in  order  to  clarify  this 
extemion  o'  the  concept  of  dynamic  stability. 

The  Mass-Spring  System 

Consider  the  mass-spring  (linear)  system  shown  on  Fig.  5.1.  Consider 
a  suddenly  applied  load,  P(t),  applied  at  t  =  0.  This  load  may,  in  general. 
Include  the  wei^t  (mg).  In  the  case  of  finite  duration,  consider  the 
weight  to  be  negligible. 

First,  the  problem  of  constant  load  suddenly  applied  with  infinite 


duration  is  considered. 


For  this  case,  one  nay  write 
the  equation  of  motion  and  solve 
for  the  response  by  imposing  the 
proper  initial  conditions. 


..  k  P 

X  +  —  X  ■  — 

m  m 


(5.1) 


subject  to 


m4-x=0 


i(0)  -  x(0)  -  0  (5.2) 


where  the  dot  denotes  differentia¬ 


tion  with  respect  to  time . 


P<t) 


By  changing  the  dependent 


variable  to 


Fig.  5.1  The  Mass-Spring  System 


y  -  X  +  C  (5.3) 


where  C  is  a  constant, 

the  equation  of  motion  and  initial  conditions  become 


»  +  ^  y  «  0 

^  m  ' 


(5.4) 


y(0)  •  -  r  and  y(0)  -  0 


(5.5) 


The  solution  is 


p  lY 

y  -  -  k  y/ir  t 


(5.6) 
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Note  that 


2P 

It  * 

max  k 


and  it  occurs  at 


/  k  /  m 

.! —  t  ■  n  or  at  t  *  nJ-r"  “  T/2 
•  in  V  K 


where  T  is  the  period  of  vibration. 

Note  that  if  the  load  is  applied  quasistatically ,  then 


(5.7) 


(5.8) 


P 


St 


kx 


St 


(5.9) 


From  Kqs.  (5.7)  and  (5.9),  it  is  clear  that  if  the  maximum  dynamic 

response,  x  _  and  maximum  static  deflection  x  ^  are  to  be  equal  and 
msx  St 

max 

no  larger  than  a  specified  value  X  (deflection  limited  response)  then, 


P 


St 


(5.10) 


Becau.<ie  of  this,  many  systems  for  which  the  design  loads  are  dynamic 

in  nature  (suddenly  applied  of  constant  magnitude  and  infinite  duration) 

are  designed  in  terms  of  static  considerations  but  with  design  (static) 

loads  twice  as  large  as  the  dynamic  loads,  Eq.  (5.10).  Note  that  both 

loads  (P  F.  )  correspond  to  the  same  maximum  deflection  X. 

St  dyn 

Next,  this  same  problem  is  viewed  from  energy  considerations. 

First,  the  total  potential,  for  the  system  is  given  by 

U.J.  -  I  kx^  -  Px  (5.11) 

and  the  kinetic  energy,  T,  by 

T-jm(x)^  (5.12) 
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Mote  that  the  system  is  conservative,  the  kinetic  energy  is  a  positive 


definite  function  of  the  velocity  (for  all  t),  and  that  ~  0  when  x  0. 
Then, 


0^  +  T  -  0  (5.13) 

and  motion  is  possible  only  in  the  range  of  x-values  for  which  is  non¬ 
positive  (see  shaded  area  of  Fig.  5.2). 

It  is  also  seen  from  Eq.  (5.11)  that  the  maximum  x-value  corresponds 
to  2P/k. 

Note  that  the  static  deflection  is  equal  to  P/k  [Eq.  (5.9)  and  pt  A 
on  Fig.  5.2].  Therefore,  if  the  maximum  dynamic  response  and  maximum 
static  deflection  are  to  be  equal  to  X,  then  Eq.  (5.10)  must  hold. 

Now,  one  may  develop  a  different  viewpoint  for  this  same  problem. 
Suppose  that  a  load  P  is  to  be  applied  suddenly  to  the  mass-spring  system 
with  the  condition  that  the  maximum  deflectional  response  cannot  be  larger 
than  a  specified  value  X.  If  the  magnitude  of  the  load  is  such  that 

^<X  (5.14) 


we  shall  call  the  load  dynamically  subcritical. 

When  the  inequality  becomes  an  equality,  we  shall  call  the  correspond¬ 
ing  load  dynamically  critical  (see  Ref.  1).  This  implies  that  the  system 

lot 

cannot  withstand  a  dynamic  load  F  >  -^  without  violating  the  kinematic 
constraint.  Therefore, 


dyn 


.  M 


(5.15) 


cr 


This  extension  of  the  energy  concept  of  dynamic  stability  was  first 
introduced  and  discussed  in  Ref.  1. 
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Fig.  5.2  Total  Potential  Curves 

(Suddenly  Loaded  Mass-Spring 
System) . 
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Moreover,  on  the  basis  of  this  concept,  one  may  find  a  critical 
ideal  impulse.  The  question,  in  this  load  case,  is  to  find  the  ideal 
impulse  such  that  the  system  response  does  not  exceed  a  prescribed  value 
X.  From  Fig.  5.2  and  conservation  of  energy 

+  T  -  (5.16) 

and  is  critical  if  the  system  can  reach  position  D  with  zero  velocity 
(kinetic  energy).  Thus, 

-  U^(D)  -  lt(X)  (5.17) 

cr 

From  the  impulse -momentum  theorem,  the  ideal  impulse.  Imp,  is 
related  to  the  initial  velocity  and  consequently  to  the  Initial  kinetic 
energy. 


Imp  -  lim  (Ft  )  -  n& 

t  -0 
o 


(5.18) 


where  is  the  initial  velocity  magnitude  (unidirectional  case)  and  t^ 
is  the  duration  time  of  a  square  pulse. 

From  Eq.  (5.18) 


&  .  ISE 

1  m 


(5.19) 


and  use  of  Eqs.  (5.12)  yields 


% 


i 


(5.20) 


Since  the  critical  initial  kinetic  energy  is  given  by  Eq.  (5.17), 

then 

1/2 

Imp^^  -  (mk)*'^  X  (5.21) 
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Next,  the  following  nondlmenslonallzed  parameters  are  Introduced 


2P  -  X  ^  fk 

P  wc  •  5  -  X  *  “  WT 


n  _  T  -  2t  t  _  2lmp 
U  -  — r  ;  T  =■  - 2  ;  Imp  *  - 

kX  kX  X  ^/to 


(5.23) 


On  the  basis  of  this  Eq.  (5.21)  becomes 


Imp  =  2 
*^cr 


(5.24) 


Finally,  the  concept  of  dynamic  stability  Is  next  applied  to  the 

general  case  of  a  suddenly  applied  load  of  constant  magnitude  but  finite 

duration,  t^.  The  precise  statement  of  the  problem  Is:  find  the  load, 

F,  for  a  given  duration  time,  t^  (or  vice  versa)  such  that  the  maximum 

deflection  is  no  larger  than  a  prescribed  value,  X.  Note  that  the 

extreme  cases  of  t^-*0  and  ®  have  been  dealt  with  separately,  and  that 

for  this  case,  P  must  be  greater  than  P  [see  Eq.  (5.15)]. 

^cr 

For  this  load  case  and  system,  conservation  of  energy  yields 


i£  +  t^-o  O^t^t 
T  o 


Ul+T°«C  tat 
T  o 


(5.25) 


(5.26) 


where  C  is  a  constant.  This  constant  can  be  expressed  In  terms  of  and 

Ul-  values  at  the  Instant  of  release,  t  .  Since  there  exists  kinematic 
T  o 

continuity  at  t^,  TP(t^)  ■  T° (t^)  then 


C  -  u°^(  V  -  u|(t^) 


(5.27) 
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and 


-  O^(t^)  -  uj(t^)  (5.28) 

A  critical  condition  exists  if  position  X  can  be  reached  with  zero 
velocity  (kinetic  energy).  Thus,  from  Eqs.  (5.28)  and  (5.11) 

7  -  Px(t)  -  Px  ^  (5.29) 

z  o  cr 

where  x  is  the  x-position  at  the  instant  of  release, 
cr 

From  Eqs.  (5.25),  (5.11),  and  (5.12)  one  may  write 

^  kx^  -  Px  +1  m(x)^  -  0  0  s  t  s  t^  (5.30) 


or 


k  J^2^1/2 

m  / 


From  this  one  may  write 


dt 


(STTITp 

\  m  m  / 


(5.31) 


(5.32) 


Integration  from  zero  to  t^  yields  an  equation  that  relates  t^,  x(t^) 
and  P. 


t 

o 


(5.33) 


Eqs.  (5.23)  and  (5.29)  are  two  equations  that  relate  P,  x^^,  and  t^. 

A  critical  condition  is  expressed  in  terms  of  either  P^^  for  a  given  t^ 

or  t  for  a  given  P -value, 
cr 

Computationally,  it  is  simpler  to  assign  values  of  x^^  from  zero  up 
n  X  and  solve  for  the  corresponding  P  from  Eq.  (5.29)  and  for  t^  from 
Eq.  (5.33). 
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Use  of  the  nondlmensionallzed  parameters,  Eqs .  (5.23),  yields  the 


following  system  of  governing  equations 


and 


P? 


cr 


1 


(5.34) 


Note  that  the  first  of  Eqs.  (5.34)  corresponds  to  Eq.  (5.29)  and  the 
second  to  Eq.  (5.33).  Moreover,  the  value  of  5^,^.  varies  from  zero  to  one 
The  simultaneous  solution  of  Eqs.  (5.34)  yields 

P  =  and  T  =  cos‘^1  -  2^^^)  (5.35) 

°cr 

Note  that  as  %  approaches  one,  t  is  equal  to  half  the  period 

cr 

of  oscillations  and  p  =•  1,  which  is  the  value  that  corresponds  to  the 
case  of  constant  load  suddenly  applied,  with  infinite  duration  [see 
Eq.  (5.15)]. 

The  results  are  shown  graphically  on  Fig.  5.3,  as  plots  of  p  versus 

t  /T  or  T  /2n. 
o  o 

Parenthesis 

Eq.  (5.29)  may  be  interpreted  in  a  different  way.  For  instance,  one 
may  write 

kX^  -  2Px  (5.36) 

cr 


where  x  is  the  position  of  the  mass  at  the  instant  of  release  of  the 
force,  P,  and  X  is  the  maximum  amplitude  of  oscillations  (maximum  dynamic 
response).  Moreover,  P/k  is  a  measure  of  the  maximum  static  displ  -ement 
■  (if  P  were  applied  quas i-statlcally) .  Then,  Eq .  (5.36)  may  be 


max 


written  as 


St  X 

max  .  cr 
X  X 


(5.37) 


V 

Next,  -  =  D  is  the  dynamic  magnification  factor  and  x  /X  =  t 

X  cr 

st 

max 


cr 


Therefore,  Eq.  (5.37)  becomes 


2E  /D  =  1  or 
’cr 


“cr  2 


(5.38) 


Finally,  the  relation  between  t^/T  (=  T^/2n)  and  the  magnification  factor, 
D,  is  obtained  from  the  second  of  Eqs.  (5.35),  or 

2 


■  f  ■  s  ■  V 


(5.39) 


from  which 


D  =  2s  ini 


,T  V  TTt 

l-^)  '  2sin 


\  2 


(5.40) 


The  dynamic  magnification  factor  D,  (see  p.  94  of  Ref.  36)  is  also 
plotted  on  Fig.  5.3  and  it  is  identical  to  that  shown  on  Fig.  6-6  of 
Ref.  36. 

Note  that  the  parameters  plotted  on  Fig.  5.3  represent  two  different 
points  of  view.  The  plot  of  p  versus  t^/T  depicts  the  amount  of  a  sudden 
load  with  finite  duration  t^  t)  at  corresponds  to  a  maximum  amplitude  X. 

On  the  other  hand,  the  plot  of  D  versus  t^/T  shows  the  magnification  of 
the  maximum  amplitude  (compared  to  the  static  one)  due  to  sudden  applica¬ 
tion  of  the  load  with  duration  time,  t  .  Note  that  in  both  cases,  t 
need  not  be  larger  than  half  the  period  of  oscillation  or  t^/T  *  2. 
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Finally,  before  closing  this  section,  one  can  see  that  the  extreme 

cases  of  t  -*  ®  and  t  -•  0  are  special  cases  of  the  finite  duration  case, 
o  o 

t 

From  Fig.  5.3,  one  sees  that  as  -•  <»  p  -•  1  which  is  in  agreement 

with  Eq.  (5.15).  The  other  extreme  case  is  obtained  from  Eqs .  (5.34). 

If  t  0,  then  5  ^8  an  extremely  small  number  and  since  0  <  E  s  F 

o  cr  ^  =  ^cr 

then  the  second  of  Eqs.  (5.34)  becomes 


Then 


(5.41) 


(Imp)  =  (pT  )  =  - —  .  2F  “2 

*^''cr  o  cr  I  ^cr 

^cr 

which  is  identical  to  the  result  of  Eq.  (5.24). 

Suddenly  Loaded  Beams 

A  latge  class  of  structural  problems,  that  may  be  treated  in  a  similar 
manner  as  the  mass-spring  system,  is  that  of  Euler-Bernouilli  beams.  Under 
static  application  of  the  loads,  these  configurations  exhibit  unique  stable 
equilibrium  positions  at  each  load  level  (see  Fig.  1.5). 

Consider,  as  an  example,  the  cantilever  shown  on  Fig.  5.4.  The  load 
P(t)  represents  a  sudden  load  with  finite  duration,  in  general. 

If  one  assumes 


that  the  amplitude 
of  the  beam,  at  any 
point,  is  given  by 
the  static  deflec- 


> 

/ 

/ 

/ 

H.L 

P 


•X 


tion  curve  multiplied 

by  a  time  dependent  Fig.  5.4  The  Cantilever  Beam 

coefficient,  y(t)j 
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then 


.(..t)  -  I  ,(t)  [3(S)'  - 


(5.42) 


Note  that  under  static  application  of  the  load  F,  y  Is  the  mav^minn 
(tip)  deflection  and  It  Is  related  to  the  load  by 


y 


(5.43) 


The  total  potential  for  this  case  Is 

“l  ■  T  (5.44) 

or 


3ET  2 

u-  -  ^  y  -  Py  (5.45) 

^  2L 

Note  that  the  stiffness,  k,  at  the  free  end  becomes  k  »  SEI/L^.  With  this 
value  for  the  stiffness,  k,  Eq.  (5.45)  is  Identical  to  Eq.  (5.11)  or 

Ut  *  I  ky^  -  Py  (5.46) 


Moreover,  the  kinetic  energy  for  the  cantilever  problem  is 

^  ■  i  ij; '(??*■  <5-") 

where  p  is  the  linear  mass  density.  Substitution  of  Eq.  (5.42)  into 
Eq.  (5.47)  yields 


T 


(5.48) 


which  is  similar  to  Eq.  (5.12),  provided  that  m  ■  33pL/140.  Eq.  (5.48) 
indicates  that  for  the  assumed  deflection  curve,  the  continuous  beam  is 
equivalent  to  a  spring-mass  system  with  k  and  m  given  by 
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k  =■  3EI/L^  and  m  =  33pL/140 


(5.49) 


Moreover,  the  continuous  beam  Is  equivalent  to  a  weightless  beam 
with  a  concentrated  mass  of  m  units  at  the  end  (see  Example  1.5-3  of 
p.  19  of  Ref.  37) . 

On  the  basis  of  the  above  analogy,  the  results  of  the  spring-mass 
system  are  applicable  to  the  cantilever.  In  sunniary,  for  a  prescribed 
maximum  tip  deflection,  Y,  the  various  critical  conditions  are  given  by 


Imp  ■  11m  (Pt  )  =  (mk)^^^  Y 

t-0  ° 

o 


-  [0.70714 


Y 


(5.49) 


,  .M.my 


(5.50) 


Finally,  for  the  case  of  suddenly  applied  loads  of  constant  magnitude 
and  finite  duration,  the  results  of  Fig.  5.3  are  applicable  provided  that 
the  proper  expression  for  p  is  used. 

According  to  Eqs.  (5.23),  p  may  be  defined  as 

.3 


P  "  tv 


2P  _  2PL" 


kY  3EIY  P 


dyn 


(5.51) 


cr 


Note  also  that  the  magnification  factor,  D,  in  this  case  is  the 
maximum  dynamic  amplitude  (Y)  divided  by  the  maximum  static  response. 

The  Imperfect  Column 

The  imperfect  column,  under  sudden  application  of  an  axial  load, 
typifies  structural  systems  with  static  behavior  shown  on  Fig.  1.1.  Note 
iiidi.  such  a  system,  when  of  perfect  geometry,  is  subject  to  blfurcational 
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buckling  with  stable  post-buckling  behavior  (smooth  buckling) .  On  the 
other  hand,  If  there  exists  an  Initial  geometric  Imperfection  (small 
initial  curvature),  the  system  exhibits  a  unique  stable  equilibrium 
path.  Moreover,  this  system  has  received  the  most  attention,  as  far  as 
dynamic  buckling  Is  concerned  when  loaded  axially  either  by  sudden  loads 
or  by  time- dependent  loads.  Two  complete  reviews  (with  respect  to  their 
date  of  publication)  of  this  problem  may  be  found  In  Refs.  38  and  39.  As 
mentioned  in  these  references,  the  problem  dates  back  to  1933  with  the 
pioneering  work  of  Konlng  and  Taub  (Ref.  40),  who  considered  a  simply 
supported,  imperfect  (half-sine  wave)  column  subjected  to  an  axial  sudden 
load  of  specified  duration.  In  their  analysis,  they  neglected  the  effects 
of  longitudinal  Inertia,  and  they  showed  that  for  loads  higher  than  the 
static  (Euler  load)  the  lateral  deflection  Increases  exponentially,  while 
the  column  Is  loaded,  and  after  the  release  of  the  load,  the  colunn  simply 
oscillates  freely  with  an  amplitude  equal  to  the  maximum  deflection.  Many 
Investigations  followed  this  work  with  several  variations.  Some  Included 
inertia  effects,  others  added  effect  of  transverse  shear,  etc.  The  real 
difficulty  of  the  problem,  though,  lies  in  the  fact  that  there  was  no 
clear  understanding  by  some  Investigators  of  the  concept  of  dynamic 
stability  and  the  related  criteria. 

According  to  Ref.  39,  definition  of  a  dynamic  buckling  load  Is 
possible  only  If  there  are  Initial  small  lateral  Imperfections  In  the 
column.  Instability  stems  then  from  the  growth  of  these  imperfections. 
"Buckling  occurs  when  the  dynamic  load  reaches  a  critical  value,  associated 
with  a  maximum  acceptable  deformation,  the  magnitude  of  which  Is  defined 
In  most  studies  quite  arbitrarily."  There  Is  some  truth  to  this,  primarily 
f.i  .auiic  the  elastic  colunn  does  not  exhibit  limit  point  Instability  or  any 
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other  violent  type  of  buckling  under  static  application  of  the  load. 

There  Is  need  for  a  cautioning  remark  to  the  above  statement,  though. 
Analytically  It  has  been  shown  (see  Ref.  50)  that,  If  a  perfect  column 
Is  suddenly  loaded  In  the  axial  direction,  the  fundamental  state  Is  one 
of  axial  wave  propagation  (longitudinal  oscillations).  For  some  combina¬ 
tion  of  the  structural  parameters,  this  state  can  become  unstable  and 
transverse  vibrations  of  increasing  amplitude  are  possible.  Therefore, 
for  this  perfect  column,  there  exists  a  possibility  of  parametric 
resonance,  which  Is  one  form  of  dynamic  instability.  In  spite  of  this, 
mostly  all  colrums  are  geometrically  Imperfect  and  therefore.  It  Is 
reasonable  to  Investigate  the  dynamic  behavior  of  Imperfect  columns 
Including  all  variations  of  different  effects  as  reported  In  Refs.  38-49. 
These  effects  Include:  axial  Inertia,  rotatory  Inertia,  transverse  shear, 
and  various  loading  mechanisms.  Moreover,  experimental  results  have  been 
generated  to  test  the  various  theories  and  effects. 

Finally,  the  criterion  employed  In  Ref.  39,  is  the  one  developed  by 
Budlansky  and  Roth  (Ref.  3),  and  It  Is  applicable  only  to  imperfection 
sensitive  structural  systems,  such  as  shallow  arches,  shallow  spherical 
caps,  and  axially- loaded.  Imperfect,  cylindrical  shells.  The  reason 
that  the  application  of  the  Budlansky-Roth  criterion  can  possible  yield 
reasonable  results  for  Imperfect  columns  lies  In  the  fact  that  the  corres¬ 
ponding  perfect  configuration  (column)  possesses  a  very  flat  post-buckling 
branch.  This  means  that  the  corresponding  Imperfect  column  can  experience, 
at  some  level  of  the  sudden  load  or  impulse,  very  large  amplitude  oscilla¬ 
tions  (change  from  small  to  large  amplitude  oscillations) .  Note  that  the 
static  curve  for  the  Imperfect  column  (static  equilibrium).  If  the  load 
plotted  versus  the  maximum  lateral  deflection,  yields  small  values 
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for  the  maximum  deflection  for  small  levels  of  the  load.  A.s  the  load 
approaches  the  Euler  load,  the  value  of  the  corresponding  maximum  deflec¬ 
tion  Increases  rapidly.  On  the  other  hand,  if  the  criterion  were  to  be 
applied  to  an  imperfect  flat  plate,  it  is  rather  doubtful  that  reasonable, 
or  any,  answers  could  be  obtained.  This  is  so  because  the  slope  of  the 
static  postbuckling  curve,  for  the  perfect  plate,  is  positive,  and  the 
Imperfect  plate  exhibits  a  continuous  bending  response  with  smoothly 
Increasing  amplitude. 

Next,  the  concept  of  dynamic  stability,  as  developed  in  Ref.  1  and 
discussed  in  Chapter  1,  is  applied  to  an  Imperfect  column.  Consider  the 
column  shown  on  Fig.  5.5.  The  length  of  the  column  is  L  (distance  between 
supports),  the  bending  and  extenslonal  stiffnesses  are  uniform,  El  and 
EA,  and  the  sudden  load,  P(t),  is  acting  along  the  horizontal,  x,  direc¬ 
tion.  Let  u  be  the  horizontal  displacement  component  and  w-w°  the 
vertical  (transverse)  displacement  component.  For  the  analysis  presented 
herein,  the  Initial  geometric  imperfection,  w° ,  is  a  half-sine  wave,  or 

w°(x)  -  w^  sin  (5.52) 

The  kinematic  relations  and  the  relations  between  the  axial  force, 

F,  and  bending  moment,  M,  on  one  hand  and  the  reference  axis  strain,  e° , 
and  change  in  curvature,  h,  on  the  other  are 

e  -  €°  +  ZK  (5.53) 


du  ,  1 

/  dwN^ 

1 

dx  2 

\dx) 

2  \  dx  / 

.  (& 

1 

(5.54) 

dx 

j  2  / 

dx 

-  EAe° 

;  M*  - 

’  EIk 

(5.55) 
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Moreover,  the  total  potential,  U^,  expression  for  the  system,  is 
given  by  (for  details,  see  Ch.  7  of  Ref.  32} 


■  il:  [sf  * 


(5  56) 


Furthermore,  the  same  nondimens Iona lizat ion  as  in  Ref.  32  is  employed. 


5  .  ffi  .  ^(5,  .  . 

L  p  p 

P  M* 

P  “  P,  ’  ^  *  pP_  ’  S 


(5.57) 


where 


I  „  _  n  El  .  - 
“  A  ’  “  “X  ’  «E  “  Vl) 


(5.58) 


With  these  nondimenslonalized  parameters,  one  may  write 


(5.59) 


M  -  -  (ti"  -  Tl’) 


(5.60) 


"t  ■  ^  j:  ^  (vy  -  (Cfi -(v  -  i?] 


+ - 172  P  v(Tr) 


(5.61) 


where  (  )  - 

From  Eq.  (5.59),  one  may  write 


(5.62) 
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J*^  v’d?  -  v(TT)  -  -  [  V;^-  (^')  ]<!§  +  (5.63) 


Use  of  Eq.  (5.63)  yields  the  following  expression  for  the  total 


potential. 


(5.64) 


Note  that  In  obtaining  Eqs.  (5.62)  and  (5.64),  use  of  In-plane  static 
equilibrium  Is  made,  or 


p  •  const  *  -  p  (5.65) 

For  the  dynamic  case,  this  implies  that  the  effect  of  In-plane  inertia 
is  being  neglected. 

Next,  let  us  consider  the  case  of  a  suddenly  loaded  (by  an  axial 
force)  half-sine  (Imperfect)  column.  Then 

w 

w°  =  w  sin  T]  *  ~  sin  E  “  e  sin  |  (5.66) 

oL  op’  ^ 

Let  the  response,  T],  be  the  form 

T1  -  [a(t)  +  e]  sin  §  (5.67) 

The  Implication  here  Is  that  at  time  t  »  0  Tl  -■  e  sin  5. 

Use  of  Eqs.  (5.66)  and  (5.67)  Into  the  expression  for  the  total  poten¬ 
tial,  Eq.  (5.64),  yields 

U^  -  -  2p^  +  -  p(a^  +  2eA)  (5.68) 
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A  modified  potential,  ,  is  introduced,  such  that,  regardless 

mod 

of  the  level  of  the  applied  load,  the  total  potential  is  zero  (modified) 
when  t  *  0  or  when  A(0)  “  0.  From  Eq.  (5.68),  it  is  clear  that 

-  Uj,  +  2p^  =  -  p(a^  +  2eA)  (5.69) 

mod 

The  modified  total  potential  is  shown  graphically  on  Fig.  5.6  for 
p  =  0  and  p  =  specified  value. 


As  in  the  case  of  mass-spring  system  (note  the  similarity),  critical 
dynamic  conditions  can  be  established,  if  the  maximum  allowable  amplitude 
is  specified  as  X. 

Only  the  case  of  a  suddenly  applied  load  of  constant  magnitude  and 

infinite  duration  is  presented  herein.  From  Fig.  5.6,  it  is  clear  that 

p  (load  for  which  the  system  will  not  exceed  the  maximum  allowable 
00 

displacement,  A(t)  s  X)  is  given  by 

2ep 


cr 


or 


cr 


cr 


X 

X+2e 


(5.70) 


On  the  other  hand,  the  static  load  required,  such  that  the  maximimi 
static  deflection  does  not  exceed  the  value  X,  is 


(5.71) 


Note  that  the  above  expressions,  Eqs. 


The  ratio,  p  ,  of  p^^  to  p^^ 


at 


(5.70)  and  (5.71)  hold  for  e 
is  given  by 


0. 


d 

P 


X+e 

X+2e 


l+(e/X) 
1+2  (e/X) 


(5.72) 


This  result  is  shown  graphically  on  Fig.  5.7. 
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Fig.  5.5  The  Imperfect  Column 


Note  that,  for  very  small  values  of  e/X,  the  ratio  is  close  to  1. 
For  e/X  equal  to  one,  *  2/3.  Finally,  as  e/X  becomes  very  large,  then 
approaches  the  value  of  one-half. 

Parenthesis 

If  load  p  is  applied  quasl-statically  the  maximum  deflection,  A  , 

S  w 

max 

is 


A  -  -S2- 

st  1-p 

max 


(5.73) 


If  load  p  is  applied  suddenly  the  maximum  amplitude,  A^  ,  is  given 

max 


by 


A  - 
^d  1-p 

max 


(5.74) 


Fig.  5.6  Total  Potential  for  a 

Suddenly-Loaded  Half-Sine 
column. 


-®/x- 


Fig.  5.7  Ratio  of  Dynamic  to  Static 

Load  versus  ratio  of  imperfection 
parameter  to  maximum  allowable 
displacement  (for  the  imperfect  column). 
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On  the  basis  of  the  above,  the  dynamic  magnification  factor,  for  this 


case,  is 


D  -  A.  /A  -  2  (5.75) 

max  max 

regardless  of  the  value  of  e. 
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APPENDIX  A 

FLOW  CHART 

(CYLINDRICAL  SHELL  ANALYSIS) 
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I,  Block  DxA&gAm 


YVVO^C  oJt 

S^ar  ^ou.v»ier 
Xbjcv^  .  Su^rauCti- 
vv^  WV't'bbc.v^  by 
HSev. 


/V\AI  N  P  ROGfiAfV\ 


Caft.CM.QA.tes  oJlL  12.0  a.As  a.v\A 

^  e^vvwoctjLo  v\  wv  o  Ae  s  *,  p  /i  v\to 

oiA.'t.  oJlA  iv\Y»i^jb  tLok^o.  o<^A 
c  ia.‘L(3  usX,  ^  o.v'CLwvetters . 


CoeFF 


CoiLcuPeltg^ 
coe^'dc^. 

Ct  yxjAjMN^vai^MS 
(M0Ukf€ 


COEFNM 


CoJ^cMiodtes  oJ^ 
coe^ic;eMil>v 
uA\^cU  OMflC  Ac- 
pe^Ae^  asA 
ci^rtM>M«c(ev«JeAfl 

U)00i>£.  «\VM«\Q)e^vC 


POTE^^S 


f^C^ov''»A*«>»A  -^€»r 
Sotom^  4xcQ{  V\€«9r 

,  e<\s  ^r) 

€ef  Wftw- 
cks 

AJ^'coJtum 

pes 

avvA^s'ts. 


TRAWSF 


Cveciles  ucdon 

;C 

Om%  SoQw.^«ov\ 

V  Vk  ov^ir 

oi-Wi-v^  4tvtw«|K 
fteyA.\uov\  <W4^ 
ev*  (4rUe$€  t# 
bctc<^ 

vAC/vdb. 


9otsn 

CoAcu.C«jHo 

'^»\jt^\^oSi  ommA 


NONXP 


CaI2cju.Q«3^s  respiHse 
Wey«v\A  k  fa'iHtj 

6A«k.Qftcs  user  tA 

siWIaxivi  "to  •''*‘'1 

Acstvcl  JLoeA  JIm/cI. 
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V  y 


^8CG 

C  ^  o\ 

of  <^e|.  ast. 


YSYNW 


MoivJx  ofe 
v*oJttev\ 

A^S-C*0 


V 

V  y 


XWKITE 


4W  'lv^tev- 
'«4eA»,<^Jbe  Sciutton 
c»*  dtVtcl  Atcejs 

tut) 


(V\A.tv-}x 

Ope/«rat■iov^ 


INVERT 


Giu«s 
'  vxut'Tie 
of  -V^t* 
vwft.Vri)c  . 


■XRCAO 


Reaii  fv«»X  diYtct 

ftOess,(22)^  H.U<€ 

( w^'rvHeJLloJtie, 
Soiivtiovi  . 


gOUNOR 
CreoAiS  VnOLtri 

Vor  a\p\>»"0)Cr««*i^  loo*Av»d».v<^ 
6o»\4\'i*o»'S 


rstg 

'rnodbrvte^  >** 
Com)poJLl  4  \  &  ifc^ . 


Ai.^ 

CalcMfii4co  C«e^|ic4ei4o 
(see  2«^.26 


143 


CorY\fy\ON  CAROS 


1)  Coyv^w^oy^/cl■K^G/NgaROT^^^l  (gOO) 

NEClPOT  -  MukV^Vsef  o^i  ici*rc^<.ov\ 

rAlC500)-TVN«  orW  o\  I  ^s]. 

2)  Co»>(ViON/BoaNO/LSl  .LSM 

Oe|^vv'i»ov\  Voo^Avvd.©.'^  CoaJLxW'^  ft.'i  4ta  ^\.s 

giw^  (jA.  '■Vt^  LS 

%)  Cotvx<vxoN  /fI  DrR/bCLTA,A\.i  ,GAi,  A\.2j^T2,CAZ. 
Coe^^ieie>vXv  l^vN^te  clt^e'<^ce  ^ 

^  VzA ,  VeS-  ,f=- zA* . 


4)  ComiwoN/Fov^gie./  VcrouR  ,  ■ 

FovAX'»e/x'  ^€<''6^  ILlvv^*^^  y oA■®>^•^ct£ r J 

<i€.yCA\^£yvcV.  ow  ^.  . 

G)  CO^MV^O»^/^ACTOe./Cl,C•^, . Ciz  . 

G>^^i'CAC>4^  mV\«c1\  Avt  4c.y>«HJU>«^  Oti.y*M<k\fifrtfAXA9  WAm®  vswJLt/r, 

7)Corftr»v0w/rACT2/()v.\-p\_4  pfti-OA4^D^^,PB3>P^,»NI,  E.)g<.p. 

Coc^iite^ts  W  »  V';  CK>cp. 
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8)  CofAi^ot*  /C01SK/X2i  (501)^X22  (SOI) 

Direct  access  doj^o.  set  21  22. 

Co<v^<A0H/^ACT3  /DlS  >XL  ;XM  . 

pftArOoA'€tt'r,  XL-L^XHs-fc. 

lO)  Cotvxiwotx/PRGS  1  /  WNN  (20Q>^^^<='T(V\ 

tW*  V/«cX*'<"  So^v\tc«vv 

oA-  ToNA.>rl«/V  'te/rvyv  C  . 

X\)  Cci^W\ON/P  Res  2/ W2;  C2L00,S),WZ  P(200,5)jW2PP  (lOO^S) 
1  W\0^  W®  ^  •A'  |po'*V\\-  |L 

4or  uor » CA*  ‘tje/<*»v\  , 

12)  CowfrV)N/pftcS3/FM  (zOOjft),VcrN\(2OO,8);^0ftP(tOO;8) 
*TUe  uedtoT  o ^  pr«A/»ev.s  sotvA.<jov\  t 
ojt  ^0\v\t  ^  Fow.v'iC/r-  t^^rvw 

i3j  co^^^^oN  /xxLjqao/xp^^s 

X9RtS  -  ^r€ssw.re  . 


5 


K)  /NgwPT/XPS  ^INyxfiy 

TPs  —  *Tl\,e  ^ooc^iev'  (4  O  4®'^  uiWvcU 

'4A\e  uaaWowv\  C®  \nep^AC£i 

4&C  £oocA  ^OLcjUDv*  (a^<i  V^teA  ooVhovoh). 

XnxxP)<  —  ^€.e.  va^vwvoS. 

'  5)  Co<^Metyi/6ueiMM^V0UT  (iZ^l'^oj^VPOT  (7,30^. 
•XVOUT 

16)  COtV\MOt^/xX  N/«^PP/xN/Pi^ 

XNp  i  --^vt  1  ivni^  |«4U 

ip<JtU 

XNP-J  -  -4^  <U 

^ocH\ . 
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user's  N^ftNUAU 

UTLOW  Cv4^^T  pg€\'><Kfe<VTV^V^ 


xiTue. 


9A8 


Av\y  Oitf^^vX'Avnt.y'ic  '  v\'^orvwO<lLu)v\ 
(j^ie  "ti.i.fi-c  C72  coi.u.vwv\s^  . 


I 


iOIG 


r 

N£QPOT,K.FOUR  ,USl^LSN,LPgtMT  )V-W\00^ 

toper. 

^No.o(.  '»n  j(^?£M6ClfoT^20O^. 

\croUg  •'  ^oudifcft  Scetfct  t-vc^vr  (vc^^^0-V<W\kRe4y 

It  is  P0S5»«te  To  JncREAS^  KP*U«  A»*0  WcaPOT  »y 

CM^NCriWCr  rvAG  OWAGNS^ON  NNO  C01^«'®M  VTIVTefAtWT  . 
LSI  '.  Boundary  CJDN\>»t\on  op  "^we  F‘R-'t  V>o\v»t. 
USN  ’.  BouN?iA«.Y  CONO^T'OW  OF  ?0»iJT, 

Nota  r  LS  =  L  fev  Ss-i  ,  LS-^  ^ 

LS-4  ^  SS4-,  v.S  =  S  ^CCl,LS-6V^CC-i. 

USr7  -(^CC^,V.St8 

US :  iO  -(W  S'|w«»el«5  co»A^ttt»v»  LS  *  14.  4*''' 

O^mX  *  %  Co^  A.»^  io>A  . 
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0  ^  priv^tA  ')  i  =  *ftOL,x«A*A.vyik 

Ltwop  0  :  wai  prUi  ^  '-  vaoA*«  , 

XPDET  0  <fc>€«vw(A.  <a6c%»>^oJU- 

^  (ofictA^A^iC/)  ^cjLe/rw\»v\OM^  prtv\^  •  I 

Js,9  (4^W^4,n A-)  J  BF» (i2VC  4-4 ^4.l)<-44)  C  p  (u K 4  4-,^ k.4  4"^ 

P^  U^W+4 , 17^.44^  ,  GP 

!At(\^K4^)  ,Vi(OlVc44)*(_12\t44^). 

COItmoM /PR6^  V/  WrA  (HCfilPcT^^^^O,  tl^(WEaP«l  (HtQPoT,  . 

COUVlilO tl/pAtt  2/  WZ  (W€QPOT, V4 1)  ,>WlP (NtAFOl  ,\(U^,>NX^P(HtO FOT  i) . 
C0*»l«0«/Pftiis3/F  N\  (V^<1^0T,^Vc.)^Xm  ^Zk). 


--  »  _ _ 

Re  ;'>ES)CH,eii‘%XNI 

GE1Z.4 

RR  '.  Ra^vuj  41jl  o^^iNaSLex* 

XL  *.  UA<jiU  0^  4U  c^tv^Aev 

XH  •  TV^^'t\Lv^«sS  o|  4^4. 

ELAS  '.  IV\oJkiv»S  o\  tCooiicit^ 

XNl  '.  9o»ssoa’s  'TCklCo . 

L  — .  —  -—  -  I  ■  ■  —  '  ■■'  ■■'■ 
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3NXxPx.LM)txf»X  ,TPS,\JP,(^Vy 


lNXxPX  =  i  F  Vh6Wv\ 

iNxx9y  s  2.  ^  oc?  umWov^  W(l?^1PS) 

\vv\^oJ2.  ^Xie  ^0). 

rMXX9Xs‘?»  4<kN  Xy  OcS  tAMVMOiMVi  ^)/y(L?,l?5'). 

\v^\XoJl  ^»^V\  ^tfV  U  -^Ue.  ^Vtw’wKl  IH«). 
TMXXPX-^  UwWov<j\^  «r^  VJC^P^JPS^. 

t.NXXPX  -  \  (usftA  SNXxPx  t^l^Nyy  o**  uw^koww 
4v#va  -\C>*.  sd£^.*TV\£.  ^i'v^V  \\ 

c^  i%\\tiosjl  sJis^ijus^  sec»vtA 

LViXx  PX-?.  (useA  ^  X'^iXXPXf  i)  ^Xx  0^  9  “U- 

i^a^v  o<\  ucviWftwwt  ^  dvve 

3*9  S  'rC^e  wWcU  wCuP^iPS} 

\s  >re(SUyC«.A  io«^  AO  Vm.»V>V\  ^AATOyM^^Cev*. 

L.P  ”Ttve  wv€.s^  'ipoiv^fc  u)lvC<J^  wCtl^lP^ 
C»  y«^jLAXAi  fiodJl  An  W®VJVV  jJA^TA^ 
RW  XNXX^X^^l)  TUc.  VVVCV€VvteA.%ju  ^ 

W(lP^3PS).  OW(vj!>^'^ps);gWtfr  WCl-PjlPS), 
WC^-P^TPS)  0>  'A^ol  iU>/Sl  S’otwiOfw 
*Jb  ws  tXy'4iW£A  b^  '4C%«.  iioojL  Ao 
bwitvJw  ^  .  Per  weyjb 

vJ^*^(L?,z?<)  s^w*^CLP^iPs)+DW(Lpj‘ipr3. 


x?s 


RW 


Cpwi-M 

se^fecJt/  9^  <ivsJ,  Ti'«^t.  ^  o»m,A  ^ 

v;o»i4\fe\  ^  <fwv  At>t  sUii  ^eW 

U\o'^. 


p'V 


^  'h-  — 


^vv  ovAav  to  Se(o/<.  "tA^vw^  ,  V“w.v\  e^xCAAM\^i 

45»<.  9/%  Wo«AlV\  t*  AW  ^vK»it  pt, 

C^ut>ix'x?)f  *  2) • 

Wote  4V\«ci  V-P  =  v\o.  o{.  ykcsV  joints ,  av^A  "S9^  ~ 

^vx>r\eA-  A.  ow  uiUcJU  w(u?,T?’?‘) 

eA  osn  0^  Va\owov\  toOkA^awv^foe.v', 

X?  \-V  O^A  TPS  Se4  to  “geM) 

gkAA^Covvsjdi^coJijS/^  -^^ve/\y*  ^vo'^e/v  yOwWe 
‘tA.ewVti^\v\g  AW  A^^'w^avCt:  dv's^.  |pOW0>wA.ett»v; 

SowvgUwv^^  So^UA^o>»  Aoe^  wot  Crwv/&v^  -fttCOAAie. 

AW  dloose  w  dovw\w«KA^3^  |^0y>rPv>AA^t^  k><JU6A>^  AA<. 
ovj^i  sivxrwvA  ffVN  V»^.  ^  , Xw -V^s  cj&.<vt  ^-VUt.  VA.it/»r 
^JtjrViQ  A-  WsXktVc.  Qa/VVO^WaT  cU«<C«.  ^ov\«  wWcXv 
>)4ix  \»ctvOAAf\fv'  vv^AA>«.  ^o$A  tAAA^»t  y t »  r^AM^  io  Tvywr 
C»»/^  "ti  d).  Tke  us«v  co^ 

U»i't  /  JPsUL.i  .iUv«) 

uow  ^  ,K  b.U. ,  .>r  vv.Mt 

- ^ - p  - L _ ^  CW»a  ittfeivit 

- ^ - ! - ^A31 


t».NO.XNKx  .VPgeSS.ONXP  Accuft  .Rl. 

X»>l>i.  .XNP3. 

OLno  -  ^  ^  Ipyetsure  ^  Nxx^^ 

Dln/O  =  2.  ^xel  e</?i\*X  CAv»<^vt.vitoA  Sxx  PtJ 

“DUNO  -  3  i^Os^  j)yttSAY^  ft/v'6 

b^-^^wiwXhJxx  (t^xx‘XHxx»X9«.es). 
■ytsixx  =  i  ^  n'i  \A\lu^  oo<i«Ji 

^rv  OLW^-7.  j  v^  -VUc. 

OuMO-  3  ,  ii  ^dUv  re£»ii»^ 
M)IX  )P  ('positive  XWxx  yv^e«u«i  a)v».^yt«St«»i 

XPRES  Fo^C>tMS)  =  i,  i‘i-\W  ^JxeA  ^py^wure 
^T)LNO“2j^,  wsAteiAiti^  ^yess.(f  tAMOori^j 

O^XP  Hv  Di-ND“‘ly  \o -Vloi  VAoreme^ 

^  \S  •4fc<.  lAOre>A4Lv^  \\a  pvtSSUtt, 

XCCUR  TVe.  r«\\AAVtA  (.Oficl  0».ctusr0iP^  ^e/yctAdt. 
NVft/jr\VMAiM<V  V\UAMi^O@Ar  ^  ijDCL^ 

W^=XNXX  V^lX#C^X?  ("jf^K  DUWO^d.) 
r  X?ReSSV  (JHIkPWX?(4^DLVll>“?3). 


FdY*  XHXK^X-2^?>4-  ♦,  W(l?^T9S)-W  C^i*;XPS) 

4.’rf  +  (*»^  +  T>A/(l?^7PS). 

lit  ipv^i^prfrAr-v  <teYV  OsM^Ov*AldbiC«J.tvy  \«J. 

♦aaX  XWVi  VtfkVe  V«.ev\  •e.xceeclAci  • 

0 
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i 


wS^ 


VNON  .  XW0W2  »1W0N  Z 
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1noN=^  "TVvi  |vi\b[oJ[  Sot<c!liov»  ^'Usl 
SoU/dCoNA 

iNOMr  2  TU  SoUdtUv^  XNxX4 

bNy?>  (K  X?C6S  4t>NXt>)  U  -vise  soUs- 

tu>v^  ft.4  jpveuvoui  (  XM)o<  9<  XPCes). 

3NOW  4-  Sav>^e  as  Xwom 

Ow  w  U^cIa  4is^  LooA  Kv\Wowv\  . 

Cl 4,  tA  >recovAwA«A<sA€i.  -fco  tcjLc  TNOMr  4  t  IMONlrZ). 

X^^0W2  “  ^  *.  "tUc  ^resuXV^  C^ftslw«je,s^  6t«a 

^ ^  FKP  .^irv^-^lAJL 

V'lAvC^  <KTt 

C  '6)  (Xvsci  esA  per<'>A«vH€%^ 

v/aMAe,s  ^^<XA<^  \o  e.  vssei 
$o^Ail>wrvs  '4i«A4. 
>r\Av\  soMve 

irMON'^  =  2  TUe.  sollJUjnA  \\  <^iueAA. 

*4^  'IJVOC^m-Oaa^  sto^vJU. 

sWt  pei.A4  •^u.tV  4)e;{<N^4t< 

^wnU  pexvcfc).  44^ 

XNONZ.r.*^.  (IvsT  4U.  ^^vtA/vrws  riAvs), 

Hole.  4lv#dt  aHoN^  3^  3ixf©tx>^  er^NsV 

UNXxyya^  ^aaA  XtVJXX^X  5^“^. 


V  y 


XNowi 


1016 


, _ 0 

NNKt^  UNNN;ltNW 

NNN  -TUe  c\vtuA^ifeve4Xafl  voouJc  vNUM(^\oe»r^v\.‘TC^e 

AL(  '4l\vi  v\ . 

=  0  '.TCjL  cUes  vvtf\.  cWd  colviciU  w 

^»ue-s  vw»w\vw^A.wv  T^o\jtA^>XijOJi  evi€A^t^. 

UWWWri  ‘.'^  pvo<jv«0M  ^vA%  Att  ^o'tW^  WWW 

Av«l  caJlcAjl^flJt£o  At^loWl  0^.- 

ilue^  Suvv^ovAw^KA  A.i  JtoflkA  JUa>&(a 
(ijUfitK'  ~UU>0^  Afts*.  (K/NN"^  |pO\v()t> 

.’ TW  ^ro^v^O^M^  CASlc4>sfijoJt*o  ALl  toUJl 
trA^A^  Qiwfcv\feoaA  XiOxx. 

lA-iUcn  <jo«^  X^^Xy  cAoJetf 

ILVlW  ^10  •  ”fev\  \S  A^aA  )^^A/Jc\vw^X.W^  V\vAaaa£)6V* 

of  w-\iOkilMe.S  ^  ujWcU  AW  ^roa^PAA 

CoAcutedle-S  AjoW  yol£Mlvo«il, 

\\A  Ic  A^aA  W\\vnvvmaaa  OAviL 

Fbv  C/KOSAAA^jJix.  ,  \^  v\r  ^  OvnaA  1 

4(\£.  jpvO^vO^^  CoJLcu.Q<At>^  JSWfl. 

Vv^sic. 

1^  <Ut  AisjtM'ib  cJlolk- 

"tj/j  Ut  (^"^3*  i"^  NAO't  »V 


tOoU  4Ut  ^3WXy9X:fl  L  NNt^  -sWU  lo«  0. 


A61 


lM)cx 


XM0im3=2 


5E1G.8> 


j  WIVV  X-d^WtfiiPOT^  Jri^kFOUC+-L 

eTtAGi,3)^x:i,  ^  ,W.F6ue.+i 

WN\P(l,X)^  \  ,  ,  k.PBUR4^1 

,  ,2xkFo\i8 

xm(T,-S)^  ,  ^  ^  ZxkFouR 

FN\PCi,3)^  W  ,  y  ;  V  ,  Zxy-?bii« 

<»^  w’,  pjf' j  p '3. 

TV*  ^^A\  ^ot»dU«v>  \\  .^vfwv  -JlUt.  >^ytAJ\dUV  rvkv\ 
Sow^Mve.  ctf.se  u»\^  lKJON'i=‘2.. 
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APPENDIX  B 

COMPUTER  PROGRAM 

(CYLINDRICAL  SHELL  ANALYSIS) 
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/JOB 

/N0S£0 

NIRlT,CH16U0aj.Tl5Q0. 

USER. 

FTh,OPT*t’. 

LGO. INPUT  .OUTPUT  ,  DP  IL  . PL=99B S^j. 

RcPLACE.OFI^. 

/EOR 

PRO&KArt  nAIN«  INFuT, OUTPUT, 0flL,TAPE5  =  INPlJT,T<.P£6  =  C0TPUT, 
iTAPeibsPFU.T  APfcO  ,TtPLil,T4Pt22,TAP£t3) 

C  POST  dUCKtiNC  OF  STIFFENIQ  CYUflORICAu  ShCLls  UNOtfc  UNIFORM  AXIAL  3 

C  CONPRiSSXON  (fOl.LI.NtAK  THfOAY)  4 

C  AN  EXTE.iSlO..  OF  T  (<£  Ph04A..,-l  FCR  LOAD  L£VtU  CVi.k  THL  LIMIT 

C  POINT  mmS  sC.£|«  done  ON  NCVc>9£R  I960  IN  GtORGIA  TECh  BY 

C  SHEINMAN 

COM^«0^/XX^.QAO /XFkES  5 

COMMOf./Cl«TG/i'li'«PCr,MI  <50C  J  6 

C0rtM0.'4/90-:.0/LS:,  LSN  7 

COMNOiN/FIJFR/OtLTA.AL-  ,GAL,  AL  L,6T2,  GA2  6 

COMMCN/F  OL'RIr,  /KFOUR.Ko  .KA-, K 3,  K2 ,K1  9 

COMMON /;£AM/RR,  oo.rtll  .Hl2,n»22  .(Jll,  9  12,0 22 ,0 11 , Ol 2 , 0 22  10 

COMMON/r ACTCF  /C 1, C2 , C3 ,C4, C 5, C6,C7,  C«,C9, C2 C , C J1 ,Cl 2  11 

C0MM0n/FA:Tc/D>.  1.0L2,0LJ,0L>.,  DAl,0A2,0Aj,  OA  A,  0^2,  OB  3, 03  4,  XNI.tXXP  12 

COMr'uN/COISX/I2l<5Jl)  ,  1 22  <5  an,  123  (50 1»  13 

C0MM0N/FACT3/DLS,XL,XH  14 

COMMCN/PAtS  1/ WM  (iCiO  ,5)  ,E T M  <  lO C  , 5»  ,  ■< MP  (i C"., 5  )  15 

COMMON/PRt52/w2  (10j,5I  ,V(  Zfl  14  C  ,  5)  ,M  ?PP  ( it  0 ,  5)  16 

CONMON/PijESo/Fl  (10  0  ,c  >  ,XFK<i2C,l),FHPtlOO  ,6)  17 

COHMON/NEwpr  /JPS,ItJXXFX 
COMMON /ShEI HN/VCUT (  l2,12u), tfPOT(7, 130  » , IVCOT 
COMMON/XXMUpP/XNPI ,XHF3 
COMMQN/RVKA/yilHPS 

OIMtNSIOf^  WWM(5).FFM(6»  la 

OIMtNSDN  T  X(  IC  )  19 

OIMcNilOf,  WF<^,  :)  ,XWF(2,5),FF<2,d»,XFF(2,  i>  20 

OIMcNSION  AfC  52,52),5? (52,52) ,CP(52,52) ,FR(52,52) ,GP<52,1)  21 

OIMiNSION  X1P<52  ,11  ,Ti  (52)  ,CC(52),MT  (52)  ,V1(27C4)  22 

OlMtNSIO..  OP(52,l) 

C  27C<*»52*52  23 

OIMtNSDN  HCON(2C,5),FCOM(2C,e)  24 

C  ALL  The"  CAPOS  wITh  -SIG.4  *♦  IN  COtUMMS  73,74  OEPtNO  ON  NUMBER  25 

C  OF  POINTS  AND  RFOOR  26 

EQUIVALLNOl  (AP(*  ,l),Vl(i))  27 

CALL  OPciriS  (11,  121,541,0)  28 

CALL  OPLNmS(22, 142,511,0)  29 

CALL  CP2NHS( 43,123,501,0) 

EC0nV=C.441  30 

ECONNsO .u Ji 

MAXN=52  31 

MAX2sNAXN-‘MAXH  32 

NRHS*!  33 

NJslOO  34 

NW=5  35 

NF»a  36 

ReWiNO  .6 

C  NJ,Nt(,NF  -  FOR  DI'-INSION  --  NJ*MAXIML!M  POINTS  liT  AXIAL  DIRECTION  37 

C  NRa  MAXIMUM  KFOoR**  ,  nF*  MAXIMUC  2*KF0UP.  ,  Mrt  Xi,=12*KF  OJR^h  36 

C  IN  order  to  INCKEASL  the  capability  Of  The  PROGRAM  FOR  MANY  POINTS  IN  39 

C  OIRECTIO.i  m.'.u  hIGMi.R  LIMIT  OF  FOLRIER  S£RItS  ThE  uStK  MAS  TO  CHANGE  40 

C  ALL  TriE  CARDS  WITH  THE  SIGN  If,  COLUMNS  73  AND  74  41 

1111  WRITE(e,2D  42 

R£AC(3,iG)  (TI  (I), 1  =  1,9)  43 

)(RIT6  (6,o.>)  44 

MRITL (b. 10 )  <T  I(  I)  4S 
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REA0(3.*  I  Nifli^CT  ,KF0iJFtcSltLSNtl.PRlNT,LM00.10D£T  4b 

IF<LP^INT.£Q.  :)LM0J=1  47 

REAO(S««  )  xRUXt.,  Xh.LcAS.  XNl.  XIMPS  4« 

REA0(3«*  t  XL  AHO.  YLAllCt.XXtCyY.VlHOXf  RHOY  49 

lOVfcfiaO 
JPRsO 
I VOUTsu 

EXa-EXX  50 

EYs-EYV  51 

g  •«••••«•«««•«  52 

CALL  CO.EFF(CXf£Y,XLAnC.YLAHO»iiHOX,RHOY,£LMS)  53 

g  5^ 

MRlTL(6t  3JO)r4tQFCT,KFOUii«LSl«LSK  55 

HRlTcIcfJG  )RRtXL.XH.&lAS.XNl,DC.£<XP  5b 

HRITL  (et573  )XLAfi),  YLxMO.EXXtE  YYtRHOX,  RHOY  5  7 

g  *•««•««•«»  55 

CALL  -INPEPF  59 

g  5Q 

MRITb(6i3Ad)  bl 

00  35  I<=L.K1  62 

LKsIK-1  63 

WRITt :6t5lJ ILK  64 

HRITL  (e.c^iO)  65 

XX30.  66 

00  85  Xl-.«NE«fOT  67 

HRITk  (6.509)t  l.XX  tU7  .wZfdl.  IK)  ,WZPP  CXxtIK)  66 

XX-XX*OELrA  69 

AS  CONTINOC  7C 

IF  (LPRINT.ME.I)  GO  TO  }9  71 

WRITE (6«5oa IDELlA,Acl«G.l,AL2t^T2,0A£  72 

WRITt(5.50l)H  il,r<12,rt2I,Cll»air.<l22  73 

WRIT4.(6,5g2)0  il,0i2fCa2,062tne3.OP!»  7k 

WRirc(6«503IJUl,OL2«OL3« JL4,0L5  75 

WRXTE(fe,5j4)0A:taA2,0A3t0A6  76 

39  CO.dlNOe  •.  77 

00  63  llsi.NCQPOT  75 

00  64  Jl=i,Kl  79 

Wh(Il«Jl)-0.  dO 

ETN  (I1,J1) 3C.  ai 

HWP  (Ilf  JD -L.  A2 

66'  CONTI.^40lr  53 

00  65  J1=^.K2  54 

Frldl,  J1)=0.  65 

XFN(:i,j;)=0.  56 

FM?  (Ii,Ji» =J.  87 

65  continue  56 

63  CONTINUE  69 

LP  =  0 

INXXPX=1 

RcAC<5.*  » ;hxxP,LNXXPX,JFR,LFR,RH 
RW1»iOJ.*Rh 

WRirCtoi/Cb)  iNXXPfLNXXPXtRWl 


706  F0RMAT(//,2X."IMXXPxs”,i5,5X,"LMXXPXs",ir./,2X,”THE  IMCRtHENT  OF 


1  W  IS  ".6i2.4.6X,”?£fvCtNT”/) 

REAC(5,*  )OLWa  «XNXX,XPREc.ONxy,ACCURfRII  •X{)Fl,XNP3  90 

IRR=RII  91 

IF(IRR.£.a.dlIRR>l  92 

lOLNOsOLrIO  93 

ONXsONXX  94 

XPRfcSsxPRLE  95 

XFNXSXNXX  96 

c  yfnx*ax:al  cchprcSsion,  xpsessMYOFOSTAric  pressure,  xiUxstirntR  xfnx  97 

C  OR  XPRL3  ACCOPOIliG  TO  lOLMC  95 

GO  T0( 7|, Z2,73) ,!OLMD  99 
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ri  HRITf  5H)XFRt3,XFNX,aNX,ACCUR 
XNX^XNXX 
XN11=XNXX 
GO  To  7-, 

7Z  WRITt(6t512)XFHX»  XPRtStONX,ACCUR 
xNx=xpset 

XM1  =  XFR£3 
GO  TO  7^* 

73  WRITL  (6.  5i3)Xh(X  X,  XPRtS  ,ONX ,  ACCOR 

IF  (INXKF.iO. i) GO  TO  2fli 
WRITE<6.i03> IHXXP.IOLNO 

2C3  FOFnAT(//,2X  ."T-it  OPTION  0=-  INXXFX  *“,1  5,  2X  ,“RNO  IOi.ND=" 
ltI5,2>,"I3  IJOT  AVAlLAalt  vei**/) 

STOP 

202  CONTINUE 
tlMox=xnx< 

XFNX=TLHOx*xPRtS 

xNx=xpRn: 

XNll=XFRt3 

74  TXNXs^aju.’XNX 

RE  AC  <5,*  )  iNC.M.lMOMi*  IM0K2,IH0N3 

R£A0(3.*  )  NNN,  LNNN,  Ii.NW 

NWAVi=HNN 

IF(INXX=.Nf  .l)i.NNN  =  i. 

C  . . . 

CAi-l  COEFNW(NwAVE) 

WRITL(6.53  5)riNH«IN0N,  INCNi,  INON2,INON3 
IF (lFFINT.NE. 1)  GOTO  h3 
WRITc.(6t?>6)C  1«  C2  «C3<G  4«C5«  C6 
WRITE  (£,?/)  TIC  7,  C9,C9tCXQ  »C11«C12 
49  CONTifiOE 
Il.R  =  C 
LIC0N31 
IF0TT=C 

CALL  ScCOiO  (T  IHlI 
WRITE(o,733IT  IDVi 
TIM2=T;Mi 
TlM4=TIi2 
IINN=J 

IF(lN0iN2.£a.2)MFITt  <  ;6 . 1 3  »  <  TI  (II )  1 1 1=  It  9» 
IF(INXXF.tl£.itANO.irlON3tE<l.ai  GO  TO  213 

GO  TC  595 

213  RCAOCSf'-lt)  <(WM  (IltJl)  ,Il=l,NE0P3T)  ,Jl=ltKll 

READ  (t.Cl**)  (  (_TP  (I  l.J.)  NEQPOT)  ,Jl=ltKl) 

RcM0(5twl4)  ((WlF(IltJl)  tli”l t H*-0 POT)  f01~ltKl) 

REAO  (5f  £i4>  ( (Ilf  t  ;i-lfNC0F3T> 

R£A0(5f«.l*f(  ((XFH(Il«Jl)tIl“i  fflLiQ  PUT)  fJl-'ltXC) 

RtAO <5,:i,)  ((---.iPdifji) ,:isi,N£(JPOT), ji=i,Kc) 

214  FORMAT  (5E16.^> 

GO  TO  015 

555  LN^l 

IFdCLNO.El.l  )XFKx  =  xNx 

IF ( 101  MO. E  3.2 .OR. ICLN0.E0.3)XPRES=XMX 
IF  (lOtWd.EO.J  )XFf#X=Tt«0X*>PK£3 
lOtTsIOOET 

CALw  POT'RS  <I OLT. NRHS.PAXN. AP t9PtCP .GP, P^ .XP , CC. MT , T1 . V 1, MA X2 . 
lIXPWtOETfl,  xfnx,uN,Nj,N)<,Nf,\.p,Bf) 

IF(l.PRIf(r.r<f.  i)  GC  TO  lOi 
CALL  StCO  O  (T  iMj) 

TIM1=TIW3-T iMi 
TIM2=TIM3 
TIMLsTI  15 

WRITr.  (6,-.l»r/itAV.,XFNX,XrF£S,TIf11 


IOC 
101 
10  2 

105 
104 
10  5 

106 
10  7 
106 


109 

110 
111 
11^ 

113 

114 

115 

116 

117 

llo 

119 

120 
121 
122 

123 

124 

125 

126 
127 
126 
129 
133 

131 

132 


133 

134 

155 

136 

137 
136 

139 

140 

141 

142 

143 

144 
14  5 


160 


r 


1 


101 

call  rSANjF  (Hh  ,  Xi<  F,FF  ,  XFF  ,NH.NF,2.Tl.MAXNtl  tLPi^lNT  f  HrftXNPtLP) 

146 

<i44 

ID£T=10I)£T 

147 

IF  (  lOLND.EQ  .1  )  XFN  >  =  X(IX 

14S 

IF  (  iOlNU.EU.c  .0r<.I0tMC.iCi.3)XFRCSaXN* 

149 

1 

IF  aOLtJj.LQ.  j  )  XFWX=TL10X*XPRtS 

15  C 

IMAX=l 

151 

MMAX=u . 

152 

ITER=0 

153 

DO  102  Jl=;i<l 

154 

102 

W»1AXa»4r<AX>Wn(t,  Jl) 

155 

DO  105  Il=2,f<£QFOT 

156 

157 

DO  1C<* 

156 

104 

(11  ,J1> 

159 

IF  (ABS  .L  k  .  AsS  (W.'iAX) )  GC  TO  103 

160 

WMAXaW't.-l 

161 

IMAX=:i 

162 

103 

continue 

163 

JWrIAXsi 

164 

MWMdl  HmCM-  X.il 

165 

AKM.'iaWkMd) 

166 

IF  (Kl.  14(1)  '.C  TO  10  51 

167 

DO  105  Jl=2t<l 

166 

MMM  (Jlt  =  .<H(I(lAX,  Jll 

169 

IF  (AdS  Ji  )  )  .LC.A3S  (AhUH>)  GOTO  105 

17  0 

AhM^'aWWN  (J1  1 

171 

jHMAXa J1 

172 

105 

CONTINUE 

173 

1051 

JFNAX=1 

174 

FFlKDsFr  CMAX.i) 

175 

AFFNsFFMd) 

176 

IF(K2.£Q.1)  OC  to  335 

177 

00  106  )ia2iK2 

176 

FFM(Jl)=FN(lr4A)(fJl) 

179 

IF  (A05  (FFn(Ji  1)  .LE.ASS  (AFFNM  GO  TO  106 

IdO 

1 

AFFFsFFM ( Jl) 

161 

JFMAXsjl 

162 

106 

contihuE 

163 

333 

lns2 

164 

i 

iTtR=iTeh»i 

lo  3 

i 

IF(ITER.LE.iO)  GO  TC  113 

166 

i 

HRITE(6.11.<»)I  TER 

187 

1 

GO  TO 

166 

113 

call  POTt  ?S  (lUi  T,  NRHS,IlAxM,AP,|}F,CPtGP,FR,XP,CCfNT,Tl,Vl,  MAX2» 

169 

lIXPM.OETM,  XFWx.LU.NJfNw'iNf  .LPfOF* 

19  0 

1 

IFdFRINT.Nf.  i)  GO  TO  111 

19l 

( 

CAU  SECONO(riP3) 

192 

t 

i 

Tim  =  T  IM3-T  jHc 

193 

1 

} 

TIM2=TIW5 

194 

1 

MRITE(6.  i-CH  T6F,KWAVE,XFUX,XPR£S.TIHl 

195 

111 

call  TRANJFOtF.Xw  F,  FF  ,  XFF  ,  Nm,  NF  »2«  T  1  >HAXH.l  .LFRINT  t  HW  .XNftLP) 

196 

1 

DO  115  Jl=lfX  1 

197 

IF(wn(lT(AX,  Ji  ).Me.3.)  GO  TO  57 

l9o 

' 

NCONdTSR,  Jl)  aO. 

199 

GO  TO  115 

20Q 

57 

CONTINUE 

201 

I 

WCON(IT&,  ii)  sAsSC  (Wri(IiiAXt31l>NNM(Jl))/WN(IhAXvJl)) 

cu  2 

i 

CONTINUE 

20  3 

[ 

MCHaMCONdTEE.  JMMAX) 

204 

1 

( 

IhhxjmnAx 

205 

00  116  Jl^ 1,«  2 

206 

IF(FM(IMA/ , Jl ). tc.fl. )  GC  TO  55 

207 

FCONdTCR,  Jl)  aj  . 

206 

GO  TO  lie. 

209 

161 


T 


sa  coMTiNuc  ^10 

FCON<ITERt  Jl)  =A3S  I  (FM  (  IMA  X  ,  J1 » -FFH  <  Jl ) )  /FM(  IM AX,  J H  »  211 

116  CONTINLL 

FCH»FCON(iT£R,JFMAX)  2lJ 

IFHSJFMAX  214 

IF  (LPKiNT.Nf.  1»  GO  TO  117  215 

WRITE (6. 116)1 TEK.WCH, FCn  216 

MRlTL(e.ll9)(  JlfWCO.Ni(lTERtJl)  tJlsl.Kl)  217 

WRIT£(e,ll':))(  Jl«FC0N(iT6R,Jl)  ,Jlsi,K2)  21  d 

117  IF<WCM.GT.EOOl4V)  GO  TO  194  219 

IF  (FCH.Gr..CO  NVI  GO  TO  19<«  2^0 

GO  TO  135  221 

194  IF  (1TC>.«IE.^)  GO  TO  196  222 

IF<HCONtIT£S,  IWH)  .GT.HCON<lTLF.-l,IrfH)l  GO  TO  197  223 

IF(FC0N(I7ES»  IFrt) .gT.FCON <ITtB-l,IFH»)  G0TC197  224 

GO  TO  l96  229 

197  IF(XNX.ME..XNi  1)  GOTO  196  226 

WRITc(6,991)XMx  227 

GO  TO  939J  226 

196  00  131  J1=1,<1  229 

131  HWM(Ji)=w  KlM.XtJl)  230 

DO  132  Jl=l,<2  231 

132  FFM<Jt  )=F)i(Ir-IAX»Jll  232 

GO  TO  333  233 

195  IFdOLNO.EQ.i  IXF;,X  =  X),X  234 

lF(10LhU.£Q.2  .UR.  lOLKO  .L0.3IXPR£Ssxt<X  233 

IFdOLNn.E'l .3  )XFNXsTi.MCX*>PRtS  236 

IVOOT=IVOOT *1 

CAtt  PCT3N<F0T,P0TM,STRT,3TRA,1,1,1,XFNX)  237 

CALC  SEC0N0<TIm5)  236 

TIMlsTl,ii-T  DlA  239 

TIN2»TIM3  240 

TIH4aTlM3  241 

MRITc<6,20i)XFNX, XPStS ,MW-V£, ITER.TIMi  242 

MRirc<b,2l02)POr,PCTM,STPY,STRA  243 

IFJlOiT.Ea.i)  WftITt  (‘<,245)0£Tm,IXP«1  244 

IF(LM0C.H6. 1)  GO  TO  476  245 

CALw  TRANSF(HF,XWF,FF,XFF.MH,NF,2fTl,MAXN,2,3,')M,XNP,LPI  246 

476  CONTIflUC  247 

IF  CI.NNN  tT4.  J.  ANO.LICON.HE.10)  GOTO  566  246 

IFIwICOK.t^  .10)  GO  TO  ec9  249 

ILRai  250 

60  TO  777  251 

629  XNXiaxHX  252 

IIN6=1INMr1  253 


WOUT (l.IVOUT) sXFNX 
VOLT  )2,;V0OT)»XPRi5 
VOLT  (3,IV0UT)=FCT 
VOLT  <u,Iv04;T)  sPCTM 
VOUT  <5,:tfO</T)  sSTRY 
VOLT  (b.rVOUT) SST9A 
VCOT  (7,lV00T)sj. 
volt  C9,IV0yT) S3. 

IF(..F.£g.  J  GO  TC  7311 
VOLT  <7,:V0l  T)  ®Wf'(i.P,l) 

VOuT  (9.;v0lT)  sHMtLP.c) 

7311  NSHRs  (N£.jf>0  7^1) /2 

VOlT  (6,lV0UT)aM)'(r(S)4A.L) 

VOUT  (1^.1VoUT|s|,M(H?Hr,2) 

VOuT  (11,1  VOLDsITfiR 
VOUT  <li, IVuUT )aRuiv£ 

IF  (IHYYP.  nE.  1.  AiVO.lNX  xpx  .Eq.  DGO  TO  619 
IFCINxxP.ME.  i.Ai.O.LNXXPX.EC.c.ANC.IOVfc'R.EQ.llCO  TO  dl5 
IF  (llHA.LE.  1116)00  TO  7U  254 
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1 


MRITE(fc,7i^»I iNN  255 

GO  TO  2Se 

721  CONTIIiiU£  257 

XNX3XNX*ONX  256 

IFCrXNX.GT.Xi^X)  GO  TO  Ztk  295 

DNX30NX/2.  260 

XNX3XNX-ONX  Z6X. 

AON3CuX*lj3/XNX  '  262 

263 

IFtAOft.GT.  ACCUR)  GO  TO  Zkh  264 

XNXsXNXl  265 

GO  TO  019  266 

244  IF  (INOrJ.EOl.  1)  GO  TO  555  267 

REMIMD  £0  266 

WRITE  (23  »  < (WM (Ii.Ji)  ,I1»1, NEOPOT),  ((ETH(ll,Ji) ,J131,K1)  269 

l,ll=l,IIEGPOT»  ,  (  (ktHPdl.Jl)  ,  JlsitKl)  ,Il:i,6E0FGiT)  ,  ((FN(lL,  JD  270 

2,J1=1,(C2)  ,I.=  i,lieOPCT),  ((XfM(ll,Jl)  ,J131,K2),I131,NE«FOT)  ,  271 

3(  (FMPdl.Jl),  J1=1,K2>  ,  llsi.NEOPCT)  272 

GO  TO  444  273 

196  IF(LICOM.NE.10I  CO  TO  429  274 

ILRsO  275 

GO  TO  777  276 

429  lF(i.NNN.E9.  0)  GO  TO  249  2T7 

IPOTTsIPCTT+l  276 

IF(iPOTT.GT.l)  GO  TO  249  279 

POTTsPCT  260 

PXNX=XKX-JNX  261 

249  A0N30NX*13: ./XMX  282 

UR1Tc(C,545>N4AVC,XNX  263 

IflVESsi 

TXNXsXNX  284 

XNX3XMX-3NX  285 

I1NNS3  266 

IFIAQH.Lc. ICCUR)  GO  TO  6tS  267 

ONXsONX/2.  288 

•  XNX*XNX*0*iX  289 

IFdNON.EO.l)  90  TO  555  293 

REWlKO  20  291 

read  (2  0)  ( (wnCitJl)  ,J:31,K1)  ,Ilsi,MeQPOTI  ,(  (CTHdl,  JD.JisiiKl)  292 

l,Ii3l,NEUPOT)  .  (  (WMpdl.Jl)  ,313i,Kl»  ,Ilsi,NMPOT)  ,  dFHdl,  Ji)  293 

2,Jl3l,X2),I131>NEaFCTl  ,  KXFNdltJl)  ,  J131,K2)  ,Ilsi,|lEaPOT>  ,  294 

.  2(  (FMPdl.Ji),  Ji=l,K2)  ,  11*1,  ME  SPOT)  295 

GO  TO  4hh  296 

819  IF  dOLMl.EQ.l  )  XFNX=XNX  297 

lFdOw.>j,E0.3  .O'.  iaLN0.Eq.3)XPR£S»XNX  Ztc 

IFd0tN0.Eg.3)XFr<X*TLN0X*XPR£5  299 

WRITE  (C,  7f5)Af|r- V£,XFNX,XPR:S,P0T,P3TH,STRV,  STRa  300 

615  IF  (IRXXr.E'l.DGO  TO  8l6 
IhXXPXslMXXP 
WWsfl. 

IFdFR.EQ.L  )GO  TO  9<.4 
LP31.FR 

ZF(jF><.EQ.O  IGO  to  945 

JFSSJPR 

GO  TC  9>.6 

945  00  947  J13i,Ki 

IF(Aei<RW).Gt:.M9S(WH(LP,Ji)))GO  TO  947 
WWs;<h(Lr,  Ji) 

JPS»JI 

947  CONTIr«ue 
60  T 0  9>.q 

944  1F(JPP..EQ.3  )GO  TO  9^1 
JFS3jpfi 

00  94J  11*1  .NtqPOT 
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lF(A8S(v«W>.G£.^BS{WH(Il,JPS)nG0  TO 
HMsKmii,  J?5» 

T.P  =  I1 

94^  COKTInUG 
GO  TC  9«3 
941  CONTIt^Of 

00  921  Il^l.NeOPOT 
00  921  Jl^l.K  1 

IP(Ad3(WH).Gc.AdS(WM(IitJl)))G0  TO  921 
MMSMHdl,  Jl) 
tP  =  Il 
JPSaJl 

921  CONTlNUt 
943  CONTinuL. 

IF(LP.Li.2H.P  =  i 
IF  <LP.G€.|TfcOPOT-i)tP=N£QFOT-2 
946  H<4  =  MM  (Lr.  JPSi 

OriM=RW*MN 

CALL  MONxPO(FNt,WW,OMh,LF«INONltIOOeT,l«llHS,HAXtJ,AP,BFtCP« 

1  OPfGP.PR,  XP,  CC  .fiT.Ti ,  Vl,F<A*2,NJ.»/(tNF,L?RlNI,WF,  XHF.FF  ,XFF, 


2  ECONV.LCOr^N,  r/U4Vt«(.HC0«  1A^.IN0N2«  IN0N3> 

GO  TO  9999 

616  continue 

C  calculation  3F  CFinCAL  NAVE  NUMBER  301 

566  MRirE(6t2.)  302 

IF  <t.HNN.Ea.  C)  GO  TO  9999  303 

MRITE(6.964)  304 

iLRsi  305 

NMPrINsNkAV^  30b 

NMAV>3U^4A7£*1  3Cr 

IF(LNNN,EC|.2)  POTTarOT  $06 

POTMlNaPOTT  369 

NMINaNHM  310 

INNAVCaJ  311 

ISTCPaO  312 

I9»C  313 

POTaPvJTT  314 

777  IF  (lOLNO.'-O.l  JXFNXaXNX  315 

1F(ICLn0.-0.2  .JP.  IOLNO.tC.  3>XP.R£SaXNX  316 

IFdCL.NO.eO.j  )xFNX3TLHCX*lCPgeS  317 

IF(IlR.EO.I)  GO  TO  778  316 

NRITc(6>5s2)MV«AVEfXF»rx,XPRES  3l9 

GO  TO  9994  320 

776  INNAVIaINPAVE *1  321 

IINNaj  322 

IF(LNr(N.e{l.2)  PXMXaXMX  323 

XNXsPkhX  324 

LICO^|alO  325 

IFdNHiAVE.EA.  1)  GO  TO  391  32  6 

NMPKlUiar^HAVc  327 

IFd9.GE.l>  GO  TO  694  326 

IFIPOTMIn.lE. FOTJ  GO  TO  139  329 

POTPlMaPO;  330 

MNINaNt<AVc.  331 

NMAVs.a|«w£vE»l  332 

60  TO  391  333 

139  IFd^kAvE.li.NNNd)  GO  TO  549  334 

ISTCPai  335 

GO  TO  185  336 

549  I9»l9*l  337 

IFd9.GT..>  GO  TO  694  336 

NWAVt  =  (l«N-l.  339 

GO  TO  39:  340 

494  IF (F0;HTM.L£. POT»  ^0  TO  695  34) 
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f’  w  *  •«  *  w  I  J42 

NHIN-r.huVe  343 

NHft  =  344 

GO  ro  391  345 

695  ISTGP=l  34b 

GO  TO  165  347 

391  call  COLFNN  (N  MA\/£  )  346 

call  Sccawo  (T  1.12)  349 

165  MRITt(6,58l)N»(?'?INtPXNX,FOT,TIM2  350 

IF (NWA VE.tE.C  »  GO  TO  9999  351 

IF  I ISTOe.ME.l >  GJ  TO  7S6  352 

HRI  TE<6,7e9)X^^X,PCT^!IN.KmN  3  53 

GO  TO  9999  354 

798  IFCNHAVE.GT.  ILNHI  GO  TO  9999  355 

GO  TO  595  356 

9999  RlAQ(5,-»  JLLflNTN  357 

HR! Tc  <6  I Al  21 ) 


1021  Fo'rmaT  (//,  22  ."RCSOLTi  FOF  CONClU  SI  ONS" // f2  X , 
l"RRRRPi;R-=RR.^SRRt>(3fiRt»RM<SRRSK"///  ,2  X,  "AXIAL  LOAO"#2X, 
2"PRtS30R£",3X  .  "POTENT  lAL",  3  x,"HCDiF.  P0T**,2X, 
3"tNC-JH0BTT=0".2x  .“AVe  eTiOS“t3Xt'*R  <lP,u  >  "  *3  X,  "4  IMlO.  J )  **  f 
46X,“W(LI>,H  ••,3X,"W<flID,l)",3X,“IT£R  MHAVfV) 

WRITE (t. 10221 ((VOUT ( il . 31 ) « I 1=1, 1 2 > ,>1=1, IVOUTt 

1022  FOKMAl  <ifl£l2.  4,2F4.1  ) 

WRITE (6,10231 

1023  FORMAT  (////  ,2x,“N00IF:CAT10M  CF  P0Tt|9TIAt  ENERGY"///, 
13X,  "POTENT  lAL",i<X  ,"NOO.  P  OTENTIAL"  ,  5X  ,“P61-F0",9X  , 
2"PE2-FI",9X,"P£?-VI",8x,"PB4»-NxAW",  5X  ,  “PE  5-Pw",feX, 
3"PEc-Nxj<",6x,  "P£7-A2H)«X"/) 

WRITE (0.1024)  <tfOOT (3 ,3 1 ) , VOUT  (4, J 1 > • ( VPOT (Il,Jl> ,11  = 
11,71 ,31=1, IVQUTI 

1024  FORMAT (9E19.o» 


IF  (..COKTH.ea.  i)  GO  TO  1111  356 

20  F0R;(A7(iMl)  359 

10  FORMAT (1H0«5A«>  A4G 

60  format  (//1’5W  3.GINM..G  OF  NEXT  CASE  ///)  361 

100  FORMAT  (1016)  362 

200  FORMAT  ((ElE.O)  363 

300  FOR1AT  (//,2X,  "NO,  OF  FCINTS=",1$,2K  ,"|((FOUfi=",  18,  2X,  "SOUNO.CON  OF  364 

IPCINT  l=",ie,2K,"aC’U.\0.CCN  CF  POINT  NEOPOT=",l8)  365 

40a  FCRM,;r  (//,2x,  ••4=",ei2.4,2K,"XL=”,Et2.4*2X,"Xrt=",£l2.4,2X,  366 

l"£LAS  =  ",ei2.4  ,2X,"XNl  =  ",ei2.4,2x,"oo=",El2.M,2X,"EXXP=“,t 12 ,4)  367 

506  FORMAT  <//,2X,  "THE  I  UPE  ION  FORM  IN  AXIAL  OIKcCTION  IS"/)  36t 

510  FCRMmT  (//,  cX,  "TnE  IUPCRFECTION  FOR  CIROLiHFEKENTIAL  HAVE  ",Ib/)  369 

520  format  (//,4x,  "PaiNT",SX, "LENGTH", 12X,’VZ",l4x,"WZf",13X,"WZPP"/)  370 

509  FORMAT  (Iij,46lc  .6)  371 

500  FORMAT  (//,2X,  "DgLTA=",ei2.A,2X,"ALl=",ei2.4,2X,"GAl=".,E12.4,2X,  372 

l“AL2  =  ",El2.4,2X,"pT2="Tglc.4,2X,"GA2=",El2.4)  '  373 

501  format (//,2X, "Hll=".Ei2.4,2XV"Kl2=" ,El2.4,2X,"n22=",E12.4,2X,  374 

1"Q11=", £12. 4, 2^,"Ql2="  ,ei2.4,2X,"Q2  2=",El2.4)  3  75 

502  format  (//,2X,  •■011=",El2.>,,2x,"0i2=’*,tl2.4,2X,~02A*",El2.4,2X,  376 

i"oei=",E:i  .4. 2x,"PiS=",£i:.4*<:x,"DB4*"»Eiz.4)  37  7 

503  FORMAT  (//,  2  X,  'ML,.  =  “  ,E  1 2.4  1 2  X,  "012="  ,£  12  .4  tZ  )<  t"OL  3="  ,E  12 .4 ,2  X  ,  3  78 

1"014S",E12.  A,  2X  ,"aL5=",eiL.4)  S7'* 

504  FORMAT (//,2X, "D Al=" ,t 1 2. 4 , 2x , "0 A2*"  ,E 12 .4 ,2 X, "DA 3=" ,£ l2 . 4 ,2X ,  360 

1"0A-.=",£1Z.4)  381 

511  FORMAT (//,2X, "FOR  FIXEC  PRESSURg  OF  "  ,£ 12 .4 , 2X, "TRE  INITIAL  AXIAL  382 

ILOAD  IS  ",ei2.4,2X,"THE  INCSenENT  OF  AXIAL  UAO  13  ",£12.4/  383 

12X,"AN0  T4C  ACCURACY  <F-RC£M)  OF  TMt  AXIAw  LCAO  IS  ",C12.4)  384 

512  FORMAT  (//, 2X, "FOR  Flxc  g  -XiAL  LCAO  OF  " , I  12 . 4 , cX , " The  INITIAL  MYDR  385 

IOSTATIC  fKtSOUFE  IS", £12. 4/2y. "THE  INCREMENT  oF  THE  MYOROSTATIC  PR  386 

2e3SUHE  :3",£J2.4,2X,"AHD  THE  ACCURACY  (ftJfCENT)  OF  THf  HYOFOSTATIC  387 

3  p’23;l=-  i.. 4)  oee 

605  FORMf  "TWe  CIPCJ.MfeP.ENTlAw  Ml  V6  f»ti‘ J6  P  =",  I  ,  389 
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12X  ."met)--,  1.'  If, ’•INOrJi=*MS,  J  ,<  /  .  - 

5C6  FORrtuT  (//,2X,  ••€:=•", £12  .4.  2x  ,"C2  E 12 .4  ,  ?  X ,  "Ci  =•* ,  £  i  2 . 4, 2  »  , 
l“C‘.  =  “,el2.4,2x,"c5=",Ei2.4,2x  .“Cbs-tC  12.4 ) 

567  FOftf-T  (//,2X,  "C  7=‘*,El2.4,2x  ,“C8  =“.  E  12.4 .2  X ,  ••C9=-.£l  2.  4,  2X  , 
l“ClJ=",Et2.4,  2»,"C11  =  "  ,tl2.4,iX,-C12=**,ElC.4) 

7>i3  FORf-iT  (//,2X,  ■•eiArSEO  Tint  =",£i2.4,  2X,"SE.  CO  NDS*V  ) 

201  FORMAT  (//.JX,  "IHITI.IL  SOLUTICH  IFROMLINEAkI  FOR  r<=-,I  g,  2X  ,  “MX^" 
l,ti2.4,2x.  ••F=”.E12.4/2X,"TI>ie  COPUT  AT  row  =“  ,£l2.  4, 2  X,  "SECO.IOS"/ 

lit  format  (//.’X,  “£:.0  OF  TrlS  CCSL  SfCAUSE  ITER  &F.ZATc.R  THAN  ",IO» 

112  FCRM^iT  (//,2X,  "SC.UTION  FOR  IT -RATION  ",  18  ,2  X  ,  "hs'M  8, 2X  ,”NX  =", 
lE  12 . 4 , 2 X  ,  "P  ="  ,E  12 . 4/2X  ,"T  1  ME  C  JMFc  T  >.  T  ION  ="  ,£  12. 4,  2 X,  "SECONOS"/ 

3S===3r===^=================S====S== ======"» 

118  FCRMir  (//,2X,  "I  T£R-“,ia,2x,"WCHs",tl5.3,2X,  “FCM=",El3.5/» 

541  FORMAT  (//,jx, "THE  SOLUTION  IS  NOT  CONVERCtO  APARtMTLY  THE  INITIAt 
ILOAO  CrtOOi-O  6E  LESS  THAN  ",Ei2.4) 

241  FORMAT  (//.  2x,  "nO(JLIN£AR  SOLUTION  FOP  <tX  ="  ,E  12 . 4,  2X  ,  "P=“  ,£  12 . 4,  2X  , 
l"N  =  ",ie.2/,":i  ceT-INEQ  oV  •Mg,2X»"ITeRATI0WS"/2X,"TIME  COMPUTATI 
20Ns“,El2.4,2X  ,"S£CONDS"/2X,“0*:OXOKOKO<OXO««)<CXO<OrOICOKOKOXOKCKOKOK 
30K“,“OkOt:uKOKOKOKOKOKCkOKCCkOl(0(OKSKflllOi;OKOKOKOKOKOKOICOKOKOKCiKO<") 

242  FORh-T  (//,2X  ."POTENT  lAU  t  Nt  ROY  s",E  17.  7  .-2^,  "MOOIF  TgO  OF  POTENTIAL 

1  EN£RGr  =  ",ei7  .7/,2X,"ei(C  SHORIEUIRG  FOR  Y=0.  IS  -*,£17. 7 
2,2X,"AtfeRAGe  CKO  ShOPTENING  IS  “.£17.7) 

243  FORMAT  <//.2X,  "0(.  TE  Ml  MANT  ="  ,£12.  4,2jl,  "  IX  P«A=“  ,  1 10 » 

785  FORMAT  (//,  :x,  "CRITICAL  LOAO  FOR  N=“  ,  Ife,  2X  t**IS  NX  =  “ ,  £1 2.  4,  2X  , 

1"P  =  ",£12.4/ .JX. ’VOTENTIAL  £NERG  Y=".£i7.  7,  2X  .“MOOIFIEO  OF  POTEnTIAw 

2  ENERGyf:’*,£t7  .7/,2X,"CN0  SHORTENING  FOR  V  *0  .  =  “,£  15.  5, 

32X,"AVi.<A  E«0  SH0RTCNIMG=",EtS.5/,2X,"0<0K-OK0K0K0K0K0K0K0K 

40K0<C<0I< OK  OKOKOKOKOXOKOKOKOKOXOKOKOKOkOKOKOKOKOKOKOKOlCOlCOMKOX") 

119  FORMAT  (?  <ie,El5.S) ) 

545  format  (///;x,  “-OR  Ns",I8,2X, "THE  LOAD  ",£12. 4»2X,";S  OWgR  Thfi  lIM 
IIT  FOIM") 

573  FORMAT  (//,2X. "XLAMO *" .£12 . 4 ,2 X, "YL AMO*" ,£ 12 , 4,2X , "£X*”»f 12. 4,2X , 
l"£Ys",E12.4,Z)f.  •VH0*»",£12.4»2x,"RH0Y=",€i2.u) 

582  FORMAT  <//,2x, ‘-WKE  N  s" .  ig,  i  x  ,")K-",ei2.4,2  X,  "P  s",£  12 .4,2  X,  “THE  SOlU 
IION  IS  OCT  LO.Sv£RG60"/2X,"?F08ABLY  T«e  CRITICAL  lOAO  IS  SMALLER  TH 
2AN  ThCSE  LOAn  S”) 

769  FOR"-r  (//.,.X,  "FOR  ="  ,£12 . 4,  wX  ."THE  MIHIHUN  POTENTIAL  ENERGY  IS  “ 

1,E17.7  ,2X."4NC  THE  CRITICAL  WAVu  NJMBbR  IS  ”,18) 

564  FOR-AT  (//,2X,  "D’iTER-IVATION  OF  ThE  CRITICAL  C IRCUNFSRl MTI AE  WAYc 
1  NUMccR  <  ,)  ••/ // 'X 

2** 

513  FCR"mT  <// .2X,  “T  H.  PELATlCr.  cE  THclN  «XIAl  lOAO  ANO  The  PRESSURt  IS 

1  NX*", £12.4,2  x,"ML'LTiyEr  oY  The  PKC  SSURE"  ,£12 . 4/2X  , 

2"THe  INCmEHEUT  ;F  THE  PRESSURE  IS", €12.4/2*, 

3"AnO  The  .tCUfACY  <P£KC£nT)  OF  Tnt  FPESSCRl  IS",tl2.4) 

561  FOR-AT  <//, 2X, "h^WE  NO  1 1 J ,  ZX.'I  0 AO =" ,£ 15 . 5  ,2X , 

1"FOTl4T:-.  CnERGV»",£17.7,2X,"£LAPS£0  T  I"!  «  ",£  l2.4»  2X  ,"  St  CO  fiOS") 
722  FCRMmT  (//,zx, "e NO  OF  TMli  CASS  SlCAUSe  MUMbtR  OF  LOAO  POINTS  IS 
iCREATiR  T-AN",Ij) 

ENO  . 

SUBROUTI.it  N  JNXP  (XNXX  .HW.OHH  ,L  P,  IN  ON,  I  03£T  .NRHS  ,  MAXN  ,AP,  BP 
1,CP,CP,''.F.PR,  AT  ,CC,»iT,  Tl,  Vl.MAXt.NJ.liJ-.MF.LRPlNT.HF  ,XWF,FF, 

2  XFF,ECO.n7,LC  ohm,  NwAVL  ,LMao,:RR,INON2,  IN0N3  ) 

COMMON/XXLOAJ /xRRcj 

COMMON /CINTj/REUPCT.mI  (50  2) 

COHMCN/r  CORIP,  /KrOUR,K6  ,K4,K1,K2,K1 
COMMC.,/PHESi/Wi  (.00,5)  ,tTM(10S,5)  ,AMP(100  ,5) 

CO.iHO‘./Kf  C  f.  ./w/(iuL.S).w7P(iac,5).A7PP(lCC,.5) 

COM.'ON/r,«C>.''’''(luj,''.  ).<rM(lt'J,S),-*1P(;i.O,  ) 

COrHCN/liC-,  Pi  /  Ji-j,INXXFX 


390 

391 

392 

393 

394 

395 

396 

397 

398 

399 
tOQ 
401 

4C2 
40  3 
4C  t 
tu  5 

406 

407 
tO  c 

409 

410 


413 

<»14 


tl7 

416 

419 

t£0 

421 

422 

423 

424 
42  5 
42  6 
42  7 

42  0 
429 

43  3 

43 1 

432 

433 
•»3  4 
435 
43  6 

437 

438 
43  9 
440 


5 

6 
9 

15 

16 
17 
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COr.iC;i/jc.  (liifliJJt  V/?Or  (  /  t  3  Owl  »  ,  iV 

C^)^'  l0.4/K<Nr>i^r'/Xf,-i  ,XNP3 

OIMctiSIOM  ww  M<dI  ,  FFfI  (o) 

DIMENSION  SHfldO:  ,5)  ,SETM<lOC.5I  tSMMPdCu.b* 

DIMENSION  SFHdUQ  ,8  »,SXFMdU3,al  ,SFMPdOC,fc) 

0 1  MENS  ID  <  wf  (2  ,NWI  .  XWF<t.  ,NW>  .FF<^,f^FI  ,  XFF(  2,NH 
OIMcNSIOO  hF  (MAXM.MAXNI  ,iP  (MAXN»3|lAXriJ,LP<MAXM,MAXN) 

OlMi-nSION  F\  (MiiX  M.MAXNI  ,OP  (MAXM.IJ  , GP  (  NA  Xf<  ,  1 )  ,  Xp  (  Mt  XN,  U 
OIMt.NSiO  <  li  (M  JXIt)  ,CC  <  lAXN)  t  VI  (MA)t2> 

DlMcNSIO*  MT  (MftXN) 

OlMtf.SIQ  ^  WC  ON  (20  ,5)  ,FCUN(20 ,8),XCON  (i.0) 
hritl  (6'. iQu)  :Nxxpx,xN>x,xp|*as,iP,jPSfW«,oww 
100  FOSMA  r  ( //,2X  the  SCLUriOfi  IS  SWITCH  TO  EITHER  NXX  OR  P  AS  UN|(NOW 
IN  iNsrsAO  OF  w(LP,jPS)"/,axt 

2“ACCCPC:.'.  .  TO  INXXPX  P  ARAME  TEh.— (Stt.  USERS  MANUAL  )“/.  2X  , 
3"lNxxPX=’Mi>,  2x,“T*€.  Initial  axial  L0A0=‘*  ,£  12 . 2X  , 

4-THc  IMTImL  hRCSEURE  ufl  AC  =  ",tl2.  V  »  20<  . 

5"TME  IMT.AL  OIV-N  aiSFLACeKEM  **l  M^FIOICnAl  POINT  u  F  =",  15 , 2  X  , 
6“ANa  FOugJER  T£^N  +  i  JP S-^'M  5/ ,2 X," I  S  w=“.  i-1  2. -.,2  X,  “AnO  TriE  INCREME 
TNT  CF  W  l:  LiWW=‘',ei2.4/.2X,"NxXFaxXPWXXPKXXP(^X?NXX?NXXP|»XXNPXXNPN 
8NXXPNXXPNXXFWXXPNXXPNX*PNXXffJXXPf»XXPNXXPNXXFNXXP“/» 
call  SECbNO(TIMl) 

IINN^O 

I A3F=u 
OCWW  =  JWA 

IF  (INXXPX.  la.i.  IX  NP  =  X  NXX 
IF  (lNXy?<  .NE.lI  Xf(P=XPkLS 
XNP3=XNJ 
IFATH=A 

IF (IN0M3.Ea.2l ZFATH=E 
IF (INQN.E&.Z ISO  TO  444 


555  1(4*1  133 

IOET  =  IOO£.'  137 

call  POTERS  (Il)eT,NRHS.«AXN,-P,6F,CP.GP,PR,XP,CC.MT»Tl,Vl,(1AX2,  139 

IIXPM.OCTM, XHXX,LN.NJ,Hw,NF  ,tPtOP»  139 

CALL  TRAKSF  (''>(■,  XW  F ,  FF  ,  XFF  .f|W.  NF ,2 f  T 1 ,  MA  XN  »1  »L PRIOT  ,  MW  ,X NP  ,IP>  146 

IF  ( INXXPX.  6ft ‘4  )XPFitS=xNF 
IF  (iNXXPX.lJE.4  IXNXXSXMP 

444  IOtT*IOOe:  147 


IF (lASF.NE. l) GO  TO  214 

oc  213  :i*i,NettPoT 

00  21A  J1=1.K- 

SwM(  II ,  J.,  I=V(^  (II  ,J1 1 

SlT.1  (II,  J*»  =6  TfUdl,  Jl> 

211  SHMPdi.j^l -V.MP  (Ii,Ji( 
OC  212  Jl=i,K2 
SFm(I:,  J..)  =  fM(Ii,JAl 
SXFM(ii,Ji)  =XFI*(H,  Jll 

212  SFMPdi.Jll  =F  NP  (lA.Ji) 

213  CCNTINve 
SXNP*xNP 

SWWS’AW-OW'A 

214  continue 

XNN=XNP 


IMAxsi  151 

WMAX*p.  152 

ITc«=0  153 

DO  aOl  =  154 

102  HMAX  =  WHAX.N.1(  1,  Jll  155 

00  103  Il*2.M£aF0T  156 

MMfisu.  157 

00  lu..  Jl=i.,Kl  156 

it-  MMM  =  wnr!  *wt- (I.  , 1)  159 

IF  (kviii.)  ...t.  Ab  '  (Mt  A  XI  I  GC  TO  lOi  16(' 
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WMAX  =  k»hM 
IHAX=I1 
103  CONTINOS 

IFtIMAX.EO.LP.ANO.IMAX.NE.NEQPOTI IHAXsIMAX+l 
JMHAX=1 

WHM  (II  =WM  (  IMA  X,  II 
AH><n=hWH  (il 

IF(K1.EU.*I  iC  TC  1C51 
00  105  J1=£.X1 
WMi1(Jl)=Wf1  (ItlAXiJl) 

IF  (  ACS  (v(Hn(  Ji  )  )  •Lt ‘ASS  (/IMWHil  GOT3  1C5 
A  WHh=Wrfrl  (J1  i 
JMMAX=JI 
109  CONTiMUE 
1051  JFMAX=l 

FFMd)  sF^-dMAX,  1» 

AFFI-sFFM  (x) 

IF(Ki;.£ft.xl  GO  ro  333 
DO  106  Ji=a,Ka 
FFM(Jll=FH(IMAX,Jl) 

IF  (ASS  tFFH(  J1  n  .It.Afes  <AFFM)J  GOTO  106 
AFFH-FFH( Jl) 

JFMAX=J1 
106  CONTiNUt 
333  =  « 

IT£R=1 lEh'l 

IF  (  ITE^.LE.  1<<)  GO  TO  113 
MRIT£(6. 11411  TER 
GO  TO  AG3 

114  FORKAT  (//.  2X  .“tNO  OF  THIS  CAScT.^XXF)  BtCAOSt  ITER  GREATER 
ITHAN  ‘Mfil 

113  call  POrtKSd  OtTi HRHSf HAXH,AP,6P,C?,GP,PR,XP,CC»MT,T1,V1,MAX2, 
IIXPM.oETm.xrX  X,tH.NJ*N«.NF,4.P.0F) 

CAtC  rRANiF(HF,RWF,FF,  XFF  , NK,«F ,2f  T i,  KA XN  ,1  tL PRINT  f  HR  ,X  Hf> »IP> 
IF  (IHXJtFX.EQ  .4IXPRESSXNP 
IF  (iNXXFX.Itf.L IXWXXSXNP 
XC0N{irt^)=A6S ( (XNP-XHNI /XNPI 
00  115 

IF <hM( IMAX, Jl ) . Ft .0 . I  GO  TO  57 
.  MCOfidTER,  Jll  =2. 

' GO  TO  115 
57  continue 

HCOn  <IT£R,  Jxl  =-SS  (  (MH  (IMm  )  ,  Jl  ) -HMH  I  Jl »)  /HM(  IHAX,  JlH 

115  continue 
HCH=HC0N( ITER.JHNAX) 

IHH=JH4AX 

DO  xl6  Jl  =  ltK2 

IF  (FN(  IHAX,  JL  I  .ll£,0.  I  GJ  TO  5.& 

FCONdTiR,  Jll  =C. 

GO  TO  lie 
5«  CONTINUE 

FCONdTE".  Jll  *».a5<  (Fr;  (IMA  x,  Jl  l-FFM  ( Jl))  /FUdMAX,  Jl)) 

116  continue 

FCm=FCON( ITcR.JFHAX) 

IFMsJFMAX 

IF  (LFRINT.Nc. 1)  go  TO  11? 

MRITc.  (6,ll6)  ITE.'.tRCMfFCH,HW,XNP,XCON(ITEg) 

MRITL  (6,119)  ( Jx,HCON(  ITLRt Jll tJi=ltKl) 

WRITc.  (6,1151  ( J  :,FCON(  ITl  r  ,  Jl  )  ,  Jl  =  l  ,  <c) 

118  FORh-T  (//,2X  ,"ITE);s",  I5,2X,”wCF=*‘fLl5.  5,  2X  ,"FCMa**,&15.  5, 

12  X,  "UR  =••,_!  5.  5,2X  .••X).Ps'*,C15.5/,2X,”XCON(  ITtP)=**,El5.  5/ » 

'9  rc.-  '.'.T  ( -  ;  VJ  L  15 . 5)  I 
J17  Tr  (  xcat.  (  dtKI  .  jT  .cCuflNlGC  TO  1<J<» 

IF (wgh.gt.econvi  go  to  194 
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173 
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176 
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179 
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200 
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210 
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IF  (  f  Cn  .  j  r  ,  _  MV  >  GO  TO  154  223 

GO  TO  155  221 

194  IF(ITEA.Lt.4l  GC  TO  l^fe  222 

If (XGON(lttR).GT.XCON(IT£R-lllGO  TO  197 
IF  (rtCOH(l;Efi<  iwft)  .GT.WCOlT<ITLK-i,IMfi)  J  GO  TO  :  97  ZZS 

If  (fCO^  CTEP,  If#(U  .GI.rCttH(ITtR-l.IFm)  GO  TO  19?  224 

GO  TO  1^0  225 

197  WRITE  (6,3  9:)  L  P  ,  J?S,  WW  ,;iNX  X  ,  XFRtS,  XNP 

WRITE  (6, 391)  IWH.IFH,  JI£R,I<>if.Cww,  OOWW 


991  F0k.1«T  (//  ,CX  ,"FOR  W  (  ",10 , 2 X,  ",1  5 "I  =“  ,£  15 .6 , 2X  ,  "XHXX=  ", 

It  15.5.  IX,"XPKf  5  =“,fcl5.  5.42X,"XN?=".E15.5/» 

992  F0RM«T(//,2X ,"IWH  =  ",1S,2X,"IFH=".  1 5,2X , "ITER=”,1 5//, 4X , 
l"ITtf>",  5X,  ■•ttCCU  (ITER)  ".SX.'VCONdTER.IWh)  ",  3X  ,  “FC  ON  (I  Tfc?,  IFH 
2) ", 2X,“I«SF -■ .15, 2X,"0ww-",E1Z.4,2X ,"DOWW=" ,Ei2. 4/) 

WRITE  (6, 99  3)  (IK.  XCON  <  IX)  ,WCON<  IK,  I  WH)  ,  FC  ON  (I  K  ,  I  FH)  ,I|C=1, 
IITER) 

993  F0fili«T<l8.JE  15.5) 

I  ASF  =  IfiSFfl 
ODWW  =  O0>'W/2  , 

WW  =  SV(M 
WW  =  Wi..C3WW 

IF  (IflSF.  GT.  .,)  GO  TO  403 
00  21fa  11=1  .NCQfOT 
00  217  Jl=l,kl 
WWdl.J*)  =G*9H{I1,j:) 

ETMdl,  Jll=  5£7)*(I1,J1) 

217  WMF  (  II  ,  J1 )  =  bWflKIl  ,  Jl) 

00  21i  Jl  =1  .Kw 
FM(I1,  J.)  =SFMl(Il,Jl) 

XFW{  ii  ,j;  )=rXFM  (ii ,  ji) 

210  FHF(I:,Jl)^SF^f>  (Ii,Ji) 

216  COaTINUE 
XNF=SXNP 
GO  TO  444 
196  XNN=XNP 


00  13.  Jl  =  i 1  229 

131  WWfKJi  )  =  ><'i  (IMAR.JI)  230 

00  l32  Jl  =  l ,X  c  231 

132  FFKJ.)iF  dl*  AX.Jl)  232 

GO  TO  333  233 

195  IVCoT=:vooT  ♦! 

,  CALt.  PCTSN(fOT,  PvTM,STRV,STITA  ,1,1,1, XNXX)  237 

CALI  G£C0«0  (T  I'd)  236 

TIh3  =  TIM.-ri  ill 
TIM1=TI1. 

WRITcTF,-.,.)  .P  ,JFS,  Wn  ,XNXX  ,XFRtS,NWA  VE  ,ITt  R.TIPJ 
MRITc(c.243)P0T,P0TM,STRy,iTRA  2u3 

If  (IO-_T.t  9.1)  WRITf.  (6 ,240)  OtTM.Ixpn  244 

IF  (lMOQ.N^  .  1)  _G'':  TO  47b  245 

CALL  TRAN >F (w ?, <w F ,Ff , xf F , NW,  Wf  ,2,  T l.MAXN ,2 .o.XW.XNPiCP)  24c 


476  VClT  (i , : VOU T)  =XNXX 
VCLT  (L,  IVOIIT)  =XPRcS 
VCuT  (3, - VOU  T) =PCT 
VOlJ  <*, IVOUT) =PCTM 
VCL'T  (5,  .VOy  I)  =STRV 
VOlT  (6.  I  VOl)  T)  =3TRA 
VOLT  (^, IVOUT) =wr (.f ,.) 

VOLT  Is.IVOUT)  =WK(lP,2) 

NSMR=  (NCQPO 

VOLT (o, .VoyT) =WM (NjHR.I) 

VCbT  (.u  .  I  VGoT  )  =  )>r'(.-.SH’’,2  ) 

VCl.T  dl.  r  '  n')  =  7Tt.P 
V  CL’’  Cl.  :  7..  J  :  )  =NV/i  VL 

241  FLk-.T  (//,  lX  ,"f(ONl  IN£«f  iOLUTICN  FOR  W  ,  I  j  ,L  X  ,  ”  .  I  y*  I  =- . 
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2D  6r",i8,2x,‘‘  i  r  :ra  tions”  /  .2;ff  "TiMi.  coh»’ut  ai  i.'.  4. .-’‘l  ;cnos 

3“/,  2X,  “NNNXXA  Ki=?NNHxXXfFi>(*li»lXXXPPPNNNXXXH'F?HfUiXXX>  prrvNiH  liOt  xr-FN.'.xxNM 
4PNNMXXXPpOHn/^  XXXPPPNN»NXXXPP***/,,:X.'*NNMXXXrpPMiJ#JXXXPrpnM(3XXAp!,i4XXFN 
5PPNNNXXXPPPf<HNX  XXPPpiy^NXXXPPPtWNXXXPPPItNNXXXPPPMMMXXXPPP"/! 

242  FOAM- T  (//,  JX  , "POTET  I4L  ENtR&Y=",E  17.7,  2X,*‘f1uu:FlED  OF  POTENTIAL 
lEN£Rliyj",6l7.  7/,cX,“-;NC  SPORTEMING  fop.  V  =  0.  =",£i7.7,^X, 

2"AVERAGJ  -Nj  SMaP.TeMNOi-.cl/.F/l 

243  FOS.IA:  (//  ,c.X,  ••0ET.::iINANT  =  “,E1£.4,  2X,“£XPM=*M1£i» 

IIHN=IlNN<-i 

GO  70  (231,232,  233)  ,  IFATH 

231  IF(XNP.oT.xHPS)GO  TO  Z34 
IFATM=2 

GO  TO  2J7 

234  IF(XNP.VT.XNP1)G0  to  237 
MRITc lo.2E4)XNP.XKPi 

261  FORMAT  (// ,2X,  “6N0  OP  This  CAScbECAUSt  XMPs“,E  12 . 4,  2X  , 

1”0N  ThKE  fUST  ^ATh  IS  tPtAT'R  THAN  XNP l=",t  1 2. 4 /> 

GO  TO  ‘<o3 

232  IF(XNP.LE.XNPS)GQ  TO  237 
IPATh=l 

GO  TC  257 

233  IF  (XNP.LT  .X  ,(P3l  GO  TO  '237 
WRITE (o. 262 ) XNP,XNF j 

262  FCF'IAT  (//,2  X,  "enO  OF  THIS  CASE  BtCAOSE  XNF  =  ",E  12  .  <(,  2X  , 

1“0N  THE  TKIRO  PATH  IS  GREATcP  TmA6  XKPJ =" ,E 12. 4/ > 

GO  TO  403 
237  XKF3=XNP 

IF<^^0N2.N£  .2.0F.  IINN.NE.HIR-5)GD  TO  321 
WRITE  (lo,32il  I1H1I,XHP 

322  FCR.TAT  <//,^x,“IINN  =  *M5,2X,"XNPs",c15.7)  ^ 

WRITtdo.jG*)  ((WM<I.,Ji),  Il-l.MEOPOT)  ,Jls:,Kl) 

WRlT£(lo,323)  ((cTrttli.Jia  ,ll»l,NtQPOT) , Jlsi,Ki) 

WRiTc  <16, 3i3)  ((WhPdi.j.)  ,I.  =  l,HEaPOT> ,  JiSifKl) 

WRITE  <16,  Cv  ,1  (<F:i  (I.  ,Ji)  ,  Il=l,NtTPOT)  ,Jisi,K2) 

WRITE  do,  32  3)  ((XFK(:i,j.)  ,Il  =  .,Ni  3PCT)  ,  Jisl.x:) 

WRITE  do,  323)  (<FmP  (  Ii,J:)  ,I1  =  1,NEQP0T)  ,  Jl  Sl,<2) 

323  F0RM-T<5E1  b.8) 

321  CChTI.tUE 

IF (IINN.LE .IRRIGO  TO  721 
WRITE  <6,7.;2)  IINN 
GO  TO  -Ci5 

722  F0RM«T(//,2X,‘*tN0  OF  This  CASE  BECAUSE  THE  NUM51R  OF  OISPLACcME 

itNT  Pairs  IS  gremTck  thjn  ••,!<•) 

721  hW  =  W'A  +  i)WH 

I  ASF=u 
OOWWSOWR 

IF (In0H.EQ.4)&0  to  555 
WM<LP, JFS)=WW 

GO  TO  444 
403  CONTI.'.UE 
RETURN 
ENC 

subroutine  IMPEhF 

COHrCN/FCURIR/KFOV>R,Ko  ,K4,K3,K2,Ki 
COrihCi,/CINTG/N6<iPOT,MI  (500 
COMMON/FACTS/ JLS.X,.,  XH 
COMrtON/FIOFR/OELTA,AEi ,GA1,4L2,BT2,GA2 
COf1*lO.N/PPES2/  wZ  dCC,5l  ,wZP(lOu,5),W7PP(lOO,  51 
CC.1hSN/PVX  A/  XIMPS 
0V3i. 

PIs4.*AT*,  ,  (OV  ) 

d.-i 

ACtil.l'Xl'  Po*XH 
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A?=2. ’Al 

xx  =  c. 

00  iJ  i=i.NtapOT 

M2  (I  ,1) =- AC  1»  CO 3 (At* XX) 

M  2  (I  ,2  )  =AC2  IN  (A1*XX» 
w2P(l,;)  =Ac^-'AZ*siN(A2*xx) 

W2P(I.21=AC:»A1*C0S  (A1*XX» 

M2PP  Cf  -  >  =ACi»AZ“A^*  cos  IA2*XX) 

H2PP(i,2)  =-AC2*At*Al*$IH<Al*XX) 

IF  <K:.LE . 2) 00  TO  50 
CO  11  .J=i|Kl 
M2( I, Jl =C. 
m2P  (I  t  J)  =0  . 

MZ?F( iiJ)=C» 

11  CONTINU-: 

50  cc.niNji 

xx=xx+oeL‘A 

10  CONTIMUfc 
RETUkM 
END 

aU5R0u  n.t-  TKANSF  <WF.  XHF.FF  ,XFF,NM,NF,NFF  ,Tl,MAXN,IO£P.t  IPRRfWHtXMS 
IfLP) 

COMPON/PkCSI/  wH  (lO:  .5)  .ETMdOC  t5»  ,MmP  (lOC  .5» 

COMMO.t/PWLSi/K  tXFMdCC.o)  ,FMP(iuOti> 

COrtPO.N/FItDFR/OiuTAiALlfOAltALitBTctOAt 
C0Mf'O,wCu’I5</l21(5:i)tI22  <  501)  ,125  (  5Cl) 

COMPC.<  /CI.NTu/MEQPOT  ,MI  COO) 

COrtPON/FOJ^lr./<FOUR.  t<6  ,)<•»,  K 2, K2»K1 
COrMO^/NeM  FT/jPS, INXXPX 

DlMc'NSIOf.  WF(Nftr,MW)  ,  X  Mr  <N'<  F,  MHl  ,F  F  ,  WF)  ,XFF  <  Hffr  ,NF )  ,T1(MAXN) 
IF(IFRK.EJ.o)  GO  To  228 
00  lu  Il=l, NEuPOT 
NL  =  MI  (ID 

CALL  R£A013(2£.T1,ML.I1I 
IFdl.Nt.it  GO  *0  125 
00  11  01=*, K1 
HF  <  :  ,  01*  =T1  <0  1» 

MM  (  d,  0.  DTD  J1+K6) 

XHF (1,01) ST 1( Jl*K3-i) 

ETM(Il,JD=Tl(Jl»K3rfb-*) 

11  CCNTiNvJE 

00  l2  01  =  1, *<2 
FF(1,J1)=T1(J1*K1> 

FMCl.Jl)  =T*(  Jl+Xl*<6) 

XFF  d,JD  =T.(  J1*KA) 

XFM  (II ,  )1)  =T1  (J  UK<l+K6l 

12  CONTINUE 
GO  TO  10 

175  00  13  J'.  =  i,Ki 

MM  ( II,  JD  =T  i(  Jl  ) 

ETM  (II  ,J1»  =Ti  (J1+K3-D 

13  CONTINUE 

00  1<*  Ji  =  *,KL 
FMdlfJl)  =T*(  J1*KD 
XFM  (II  ,Jl) =T1 (J1*K4) 

14  CONTINUE 

IF  (  II.NC.MEQPOT  )  GO  TO  10 
00  15  01  =  1, 

MF(2,Ji»=Tl(Jl*<6) 

XMF(2,J1)=T1(J1+K3+K6-1) 

IP  CONTI, 

DO  If  J-  --  !> 

FF ( 2, Jl) =T 1 ( J  1*K1 ♦Kb) 


468 

469 
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473 
-74 
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480 
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-85 
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-68 
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497 
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XFF(£.,Jl):ri(Jl‘Kl4»K6» 

16  CONTImOE 
10  CONTlrtUt 

IF  (LP.tU.C  .Jf?.  ZfJxXPX.feQ.UGO  TO  176 
XNS  =  W«(LP,  JPS) 

HM(L?,JPi)  sWW 
176  CONTIHUE 

IFdQtR.NE.  i.>  GO  TO  275 
NEQ?=NEapOT-l 
00  2Q  I1  =  :,1N£QP 
00  2*  Jl=i,Kl 

HMP  (Ii  ,Ji) =aL 1»WH  (li-l ,Ji) ♦GA1*WM< 1 1 VI, J1 ) 

21  CONTINUE 

00  22  Ji=^,K2 

FMP  (II ,Jil =AL  ^•ni  (Il-l,Ji) ♦GA1*FM(I1*1, Ji ) 

22  CONTINUE 
20  CONTlNUC 

00  2J 

WMP  (1,  Ji)  =AL1  *»/F<  1  ,Jl)  ♦GA1»NM  <2,.J1I 

HMP  (NEdPOr  ,  Ji  1  =  ,t  (NCQP,  Ji)  ♦GAl*WF  (2  ,J1) 

23  continue 

00  Jl=i,<2 

FhP  <i,,  JI)  =  ALl*FP(l  ,Ji)  ♦GA1»FM  (2,J1) 

FNP  (NEdPOr  ,  Jl )  =-tl*FM  (NEOP,  Ji)  ♦GA1*FF  (2,Ji> 

24  C0NT:f4Ufc 

275  IF  (  IPRR.nE.iI  fiCTURN 
273  continue 
JlsQ 

writi.(6,4:c>ji 

HRITc.(6,5-a) 

XX  =  i, 

WRITc<eicjC)wF(i,l),XwF<i,l» 

00  46  lisi.HgfjPOT 

WRITt(6,5;9)I  t«  XX,W,‘1(Il,ll  ,N(1F{I1,  i»  ,ETM(I1,1» 

XXSXXI- delta 

48  CONTINUE 

WRITE  (6.6>-0)h  P(2,  i),XwF<2,i,» 

00  4^  J1=I,KF0UR 
WRITE  (6,4-C ) J 1 
WRITE(6,5.0) 

WRITc{6,7jO  )wF(i,  Jl*:)  ,>HF{l,Jl«i)  ,FF»1,J1)  ,XFF(i,jl> 

00  5l  Ii=i,HEaPOT 

WRITc.  (6,605)1  I,  Cl,  Ji4i)  ,hMP(I1,  Jl*i)  ,ETI1  (1 1,  Jib’ll  ,  FN  (1 1,  Ji)  , 
IFMP  ( II  ,  Jl)  , Xp.K  ii, Ji) 

51  continue 

WRITt(e,7^0)WF(2, Jl  +  1 )  ,XWF (2, J141) , FF ( t , J i» , xFF U , Ji» 

49  continue 

00  52  Ji=Kl,<2 
WRITt(6,4vC(Jl 
WRfTE  (c,5'.  :  ) 

WRITt(6,5j3)FP (i,Jl),XFr (1, Jl) 

00  52  i:  =  i,N£<JP:T 

write  (6,  7Ci5)I  i,f?l  (Ii,  Ji)  ,FMP(Il,Ji)  ,XFH  (II,  Ji) 

53  CONTIuUVf 

WRITt (6,6. J )FF<  2, Jl ), XFF (2, Jl) 

52  continl; 

400  format  (//.  2X,  "I., TEPMIOI^T  RESLuTS  FOR  KFOUR s", I8/2X 

I#**. 

500  format  (//,2x,  ■•P0lNT".4X,"LEMGTh*M3X,**W,  14X,"hP-,13X,"wPF", 
112X  ,"F“,  19X  ♦"FP",  13X  ,  «Fpp,V2x,”“** - - - - - - 

3***»**»“) 

509  format  Cfi.g;,- .H.oElF.e) 

600  format (//.tH  FIGTIVI  FQINT 


fcl5*c,15X,Ll5.6//) 


809  FOR'-^£.r  ( t.  ,  »  :»  .o’ \  •i.o)  571 

700  FOR^'AT  (//l  Jt-  FICTIV^  PQIHT  E  1  5.  b ,  15  <  ,  Jf.  vS.  b  , i  ■>  .  i  -  57^ 

aOO  FORMAT  (//o5ri  ‘^ICTiVc  POINlT  .  573 

1  £l5.t,l5X,F15.F//»  574 

709  FQRFAT <Ta, 57X ,5tl 5.6)  575 

RETijFN  576 

END  577 

SUaROcTINI  bOT3N(?OT,PCTH,srRY,STP.A  ,  IF,  ISY,  ISi.xhXX  >  1263 

C  POT  -  FJTE.NTIdL  EHIRGY  1264 

C  STRY  -  U.-JirgND  SHORT£MbG  FOR  Y^O .  1265 

C  STRA  -  oMT  cNO  SHORTENING  1266 

C  IP=1  FOR  CRlCOLAIl  pot  1267 

C  ISY=1  FOR  CALCULATE  STRY  1268 

C  ISAsl  FOR  C-LvJiOATa  STR*.  1269 

COrtF  ON /FO,  °  I'  /KFuOR.Ko  ,l<  4  ,  3  ,  K  2  «tCl  1270 

C0HM0N/30bN0/ LSI,  I.3N  7 

COMMON/GLC  M/RR.  OO.Hll,  H12 , H22 . Ill ,  112,0  22,011,012,022  1271 

C0M«0',/FRESi/n“3  (iOu  ,5  )  ,ETh<lJC.5>,V<MP(iuC  ,5»  1272 

C0MM0,./P^rS2/wZ  (ICG  ,5)  ,w7f  <1C  :  .5)  ,wZPP(lu  0, 5)  1273 

C0Mb0,\/P^fS3/r  4  (iOO,o),XF(1(lC.,S>,FHP(lLG,8»  1274 

CO.^^'Of, /FAOTOR  /Cl,C2.C3,C4,C5,Cb,C7,  CS, 09 ,  Cl C  ,  Oil , C 1 2  12  7  5 

C0N.40.J/FA_TZ/riL*,  0L2  .  CL3,0L4,  CA1,0A2,  OA  3,  CA  4,  D32 , 33  3, 03  4,  XNI,£X»P  12  76 

CCM(-J,'./FA  ;r3/ JC  5,  Xt.XH  1277 

CO.iMOb/CINTG/NEOPCT.M:  (5uC  >  127  3 

00440  </FI('Fk/  Gt  LTi.ALl  ,GA1,  Al2,BT2,  GA2  1279 

C0.4FQ„/XXG0Aj /XFRES  1260 

CQF.'io:./  .HEINN  /v/cur  (12,130),  VPQT  <7 ,12D) lYOUT 
CIMENSIO;,  PE  (7), PEE  (7) 

CEl=ClC/2.  1281 

C£2sC9**2/2.  1282 

CE3*C9/( (l.-XNI)*gXXP)  1233 

CE.»=C9*l)0- (1. -XNI )  12«4 

POTsd,  1265 

CO  535  1NA=1,7 

553  FEt(INA)sC, 

STRYsO.  1286 

STRA=u.  1287 

00  id  Il  =  l,r(E(?POT  1288 

E7=l.  1269 

IF ( Il.EJ..,0R.Il.eQ.NEapOT)e7=0,5  1290 

El  =  -0ll'»tr4  (il,l)  -i./(ViR*WM  (Il,i)»0A2*SNXX  1291 

E2=d.  1292 

00  11  Ji  =  -,K''Ol'R  1293 

JS=J1*<2  1294 

E2  =  JS*W.1(I1,J  i-i)*  (W«  <Ii,  Ji«i)  ♦•2.*v<Z(Il»Jl*l))+E2  1295 

11  CONTINUE  1296 

ElsS-i  +  Ctl^EJ.  1297 

IFCP.Nb'.-)  60  TO  ld(;  1298 


Ph  (1) =CB2/011**2*Ei**2 
Pt(3)=DLl«ETM<Ii,l)**2 

P2(4l  =-<NxX»WMP  (II,  i  »♦  (HfiPCl,!)  ♦2.*HZF  (1 1,  D)  ♦DA5*2.*ETM  ( 


1  II  ,i»  <XNXX 

P£(5)=-2.*XPFeS*RM(Il,l) 

PE  (7  I  =062/0i1'**2*0A2*0A2*XMXX*XI*XX 

Pi.(6)  =  „. 

100  El=El*OA2/Oll  ♦DA3*eTM  (1^,1)  lo02 

IFCISY.NP.i)  00  TO  1^0  13J3 

PSY=£i  1304 

110  IF(IS~.N£.l)  GO  TC  120  1305 

PS A sE*- AMP  Cl ,l)*(WMP( Il,l)«2.*HZ?(Il,l))  72.  130  6 

120  IFdSY.NE.l)  GO  1  0  130  130  7 

EJ=a.  1306 

DO  ;o  1309 

no  ;o  jj  =1 , Y.  1 3id 
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t'i-w*-'  3  ,  J<; »  .•WZP«I  I  j  1311 

18  COnTI.'HJC  1312 

PSY=FSY-£i/2.  1313 

£1*0.  «  13l<» 

£2*0.  1315 

00  12  J1  =  :.,kF0UR  1316 

JSsJl**..  1317 

El=ETM(:i,  Ji+H  ♦£!  1316 

E2*E2*JS*wfHi 1. Jl*l»  1319 

12  C0NTXNU6  1320 

PSY=PSY*0A3*E1-0A1**C9»E2  1321 

E1*0.  1322 

E2*a.  1323 

00  13  J1=1»K2  132<* 

JS=J1**2  1325 

Jll  1326 

E2=£2*J3*EM(*i,  Jl)  1327 

13  CONTiMUE  132  8 

PSY  =  P3Y*L)a2-»fc  l-0Al»C9*E2  1329 

STRY=STPY.pSY*t7  1330 

130  IPdSA.Ht.li  GO  TC  14C  1331 

E1*Q<  1332 

00  It*  J1*1.KF0UR  1333 

14  El  =  -H-i^N=(Ii,  ti4.MF(Ii,Jl^ll+2,*MZPfIi,Ji^U)  1334 

PSA=PSa-El/A.  1335 

STRA=3TR1+PSA*£7  1336 

140  IFCP.NE.ll  GO  ro  10  1337 

E1=Q.  1336 

E2*J.  1339 

£3*0.  13-tO 

E4*a.  1341 

£5=0.  1342 

00  15  Jlsi.KPCiU.?  1343 

JS»J1*«2  1344 

JS2=JS**2  1345 

El*£l»WMP(Il,  Jl*H*<WMF(Il,  Jl+D^c.^WZPlIl.Jl^l)  )  1346 

E2*£2*JS2*WM< X1,J1+1)**2  1347 

E3=E3*JS*WMP( 11 ,J  i  +  l)4«2  1546 

E4sE4*ETM<Il, Jl*l)**2  1349 

E5=E5»JS*wm  (1 1, Ji ♦l)*ETM<ll,Jl»ll  1350 

15  CONTINUE  1351 

Pt<o  l=PE(o)  ♦CE2*0li5*E2>C£4*£3^OLl»e6/2.-C^*0L2*E5 
Pc(4)=Fe  (4» -XNXX*E1/2. 

£1=0.  1353 

£2=0.  1354 

E3=C.  1355 

£4=0.  1356 

00  16  Jl=l,X2  1357 

JS»J1**2  1356 

JS2=JS**2  1355 

'■l  =  JS2*FM(ll,  Jl)**2*£l  1360 

E2»E2+JS*PMP( il,Jl>**2  1361 

E3=E3»Xf P (Ii, Ji )**2  1362 

E4»£4»JS*FM  (II,  Ji)*XFM  (li.Jll  13b3 

16  CONTINUE  1364 

PE<2)=Ce2*0Al*El+CE3*£2*0a2*£3/«.-0A2*C9*£l| 

00  i43  IMm=i, 7 

143  PC£(Ir4A)=P££<  lNAl4rE(IKM)«E7 

10  continue  1367 

XFdP.NE.i)  GO  TC  150  1366 

00  1>.4  IMA=1.7 

144  PE£  (INI)  -sPEE  (I  M)*3.l4l59*KR-»0ElTft 
Pt£(b»=-U2£*  j.  14159*S6*XL*XNXX«XN<Y 
POTsPEE  {,»  ♦f  i.£  (,:)>PEE  (3t  «PEE  (4)»P£E(5>  *Pt6  «i 
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i;<  i  *  “h.c  (  r  J 


*'  o  I  -  c  J  .  •  r' 


PEc3=J . 

IF(LSi.3T.4.t;,0.LSl.Nc..‘j»G0  TO  253 
P£CS  =  -C|.3*6.2  83lfi5*KR*XUXit*WrtP<i,  i) 

253  IFCEEN.JT. 4. ANJ.LSN.H£.%IG0  10254 
P2ESsPtES-*DL3*6.26  31b5-»RR*XNXX*WMPJNtUPCT  ,1) 

254  Pct(3»  =P£E(  j)  ♦P^lS 
POT  =  FOT»PtE  S 
PCTM=P0rH*P££5 

00  145  INA=1, 7 

145  V?CT  (INA,  IVCL'TJ  =PEi  <  INAI 
150  IFdSY.Mt.l)  GO  TC  IbO 

STRY  =  JA1*XHXX  -STRY /XL*  delta 
160  IF<ISA.,JE.l»  GO  TC  170 

STRA  =  DA1*XKXX-STR.A/Xc*C6LTA 
170  CONTI.'.UE 

return 

ENO 

SU3R0UTIN:.  A5  CG  (lEQ.Ml  ,CF  ,3F,  AF  ,GF  ,  NRHS ,  X  NX  X ,LN ,KJ  t  MW  ,NF, LP.OF > 
COMMOh/CINTG/HEflPOT.fir  (5JC) 

COMHON/aOUNO/ LSI, LSN 

COMMON/FIOFR/ j:^TA,ALl,GAl,AL2,aT2,  GA2 
COMP.ON/NEaPT/ JPS,  Tnxxpx 

COrtMON /PRES !/».,■(  (10  0  .5  »  ,£Trt(lUC,5)  ,'W«P(10C  ,5) 

COMMON /FQU4;IR/< FOUR, K6  ,K4,k3,K2,Kl 

0IM£NSI0N  AF(Mi,rtH ,  =  F  (Ml,Mll ,CF<M1,hi>  ,GF(Ml,HRhS)  ,0FIM1,1) 

c  NEQPOT=NPo:Nr  (Excluding  ficTivcS  foints> 

C  LSI  -Kl.,c  OF  3LUNCARY  CuNUITIONS  OF  POINT  1 
C  LSN  -CND  OF  hOUNOARV  CONDITIONS  OF  POINT  NP 
C  N«  -  MAXI.1UM  <*1  FUS  OlKil»S:OT<  WM(NJ,NW» 

C  NF  -  M-XIMOM  2*x  FCR  CIMENSION  FM(Nj,NF) 

IFdEtt.Gr.ll  GO  TO  10 

CAL^  RSTG(fcF, CF , AF ,GF , 1, XNXX, Ml ,MJ, NH,NF, IN ,NRHS, LP,DF» 

00  2  Ii:l,K6 

CF(Ii*K6,NRHSI-GF  (U.NAHS) 

OF(Il*K6«i)  -OFdl,!) 

00  2  Jl^l.KG 

8F  dl  +  K6,  Jl)  =  AL2*3Fdl  ,J1)  ♦AlI^CFT  I1,J1) 

BFdl  +  K6,Jl»<6)  =BT2*eF  ( 1 1  ,  Jl>  ♦  AF (1 1 ,  Jl) 

BF  dl,  J1*K6)=  GA£*aFdl  ,J1 »  ♦GA i*CF d  1 ,  Jl ) 

2  CONTINOC 

CALL  BOUNJR (AF,CF,GF,1 ,XNXX,LSlfHl,riJ,NW,NF ,LN,NRHS,OF) 

00  3  Xl=l,<6 
00  3  Jl=l,<6 
BFdl,Jl)=ALl*AF(Il,JlI 
AF  dl*Ko  ,J1  )  =  eF  (il,Jl*K6> 

BFdl,  Jl*Ka)  =  CF  (II, Jl) 

AFdl,Jl)-GAl*AF  dl,  Jll 

3  CONTINUE 
RETURN 

10  IFd£Q.GT.2)  GO  TO  20 

CAcL  RSTG(AF, CF ,B F , GF , 2, XNX X, Ml ,NJ , NW.NF, LN ,NRHS * LP ,0F) 

00  4  I 1=1, K6 

00  4  Jl=l,<6 

BFdl,UU=eF(  il,Jl»  ♦eT2*AFdl,JU 

CF  ( II,  Jl*X6)=  AL2*AFdl  ,J1 »  ♦  Al  1*CF d  1 ,  Jl) 

AF  dl,  Jl)  =GA2*AF(I1,  Jl)*GAl*CFdl,  Jl) 

CFdl,Jl>=0. 

4  CONTINUE 
RETURN 

20  IF  (IEQ.GE.  riEQPOT- 1)  GO  TO  30 
JP*IEQ 

call  RSTG  (  Af,  C(  ,ar',GF  ,  JP,  XNXX,MI,NJ,NH,  NF  ,LN,NRM.,,L  F,(.r  t 
00  5  11=1, 


1370 

1371 

1372 

1373 

1374 

1375 

1376 

578 

579 

580 

581 


582 

583 

584 

585 

566 

567 
566 
56  9 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 
6U0 
601 
602 
603 
60  4 
60  5 
606 
60  7 
60  6 

609 

610 
611 
612 

613 

614 

615 

616 
617 
616 

619 

620 
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or  ’  ..'1  •  r.  621 

Br(Il,Jl)-DF(  ll,Jn*eTt*AF(Il,Jl»  622 

TEMP=oiS2*«F  (I  1,  Jll  ♦Gili»CF<Il,  Jl>  623 

CFCIl.JH  =4U*AF<H,J1J*<1..1*CF(I1,  Jl>  624 

AF<I1,J1)=TlMF  62$ 

$  CONTINUE  626 

IF  (lF.lQ.  J.  CP.INXXPX.i.Q.l»R£TU(TN 


IF  (leU.LT  .LP-1.  Cf;.ItC.GT.t.P«il<<t:TURN 
HMW  =  Mli(LPtJPS) 

IF  (ItO.  JL  .L  P-l»  GO  TO  SI 
DO  $3  :i  =  l,  K6 

GFdl.NRHI)  =GF<Ii,NRHSI-AFIIl,jPS)*WNW 

53  AFdl,  JPbl^OF  (Il.i) 

RETURN 

51  IF(I£i3.n£.lF»GO  to  52 
00  5i<  11  =  1. K6 

GF  (It.NNHi)  =GF(Il.NRHi»-aF(Il,JPS>*WMN 

54  BF(I1,JPS»=0F  (11,1) 

RETURN 

52  00  55  11=1. K6 

GF  (Il.NP><i)  =GF<  II  .NRhS)  -CF(  il,JP5J ♦««)( 

55  CF(Il,  JE>SI=DF  (11,1) 


RETURN  627 

30  IF  (lEQ.EO.NEUFOT)  GO  TO  44  626 

JPsIEO  629 

CALL  RSTG(AF,CF,dF,GF,OP,XNXX,Hl,NJ,htW,MF,LN,NRHS,LP,OFI  630 

DO  6  11=1. <6  631 

00  6  J1=1,K6  632 

BFdl.  Ji)  =6F(  ll.Jll»aT2*AF(Il,Ji}  633 

TENP=GA2*AF (I l, Jl ) ♦GA 1*CF (11, Jl)  634 

CFdl,Jl)  saL2  •AF  dl,  J  II  ♦ALl*CFai,Jl)  635 

AFdl,  Jl)  =TEN  P  636 

AFdl,  Jl+<6)  =  U.  637 

6  CONTINUE  630 

RETURN  639 

!  40  JP=IEa  640 

CALc  RSTG(AF,  CF,aF,GF,  JP,XNXX,I1i,HJ,NH,NF,LM*NRHS*LP,0F)  641 

00  7  11=1. K6  642 

GF(Il>K6.nRNS  l  =  GF  di-.NRHSI  643 

OF  dl»Ko.l)  =  OF  (Il,l) 

I  00  7  J1=1.K6  644 

i  BFdl,Jl)=BF(Il.Jl)«BT2«hFdl,Jll  645 

!  BF  (II,  Jl*Kbl  =  GA2*AFdl  ,J1)  ♦GAi*CFdl,Jl)  646 

8F(Il»K6.Jl)  =  AL2*AFdl,Jl)^ALl*CFdl,Jl)  647 

7  continue  '  646 

I  call  BOUNQR  (CF,AF,GF,JP,XNXX,LSH,Ml,NJ,NU,NF,LN,NRHStOFt  649 

I  00  d  11=1. Kb  650 

TEHP=GF(Il,NRHS)  651 

'  TEMPP*OF(Il, 1) 

I  GFdl.NRHS)  =0F(:i«K6,NRHS)  652 

GFdl4K6,4RHS  )=TeMP  653 

'  OFdl,l)=OF  (Il*K6,i) 

0Fdl>K6.1)  =TEMF? 

'  00  a  J1=1.K6  654 

j  BF  dl>X6,Ji*Kei  =GAl«CF  (I1,J1)  655 

CF(I14X6i  J1)  =  AL  i«CFdl,Ji)  656 

i  CF(I1,J1)  =6M  I1-»K6,J1)  657 

i  8F(I1«'K6,J1)=AF  (Il,Jl)  650 

i  8  CONTINUE  659 

I  RETURN  660 

ENO  661 

function  Ai.B(  I..I,L,d,JP,N2,N3,N4.LL>  662 

r  N4  =  l  FOR  B(Jf.I*J)  OR  B(JP,I-J)  663 

C  N4S2  FOR  VU  JP.J)  664 
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t 


C  tL=l  fCri  A  ..-z  FOk  F  66S 

COf1f*CN/F  CUaVA.  /KF0UR.K6  tK*.tK3tK2,Kl  666 

OlMENSlOK  3(^^,N3)  667 

IF<L.GT.3I  GO  TO  10  666 

I1  =  X4’J  669 

12=11  670 

GO  ro  20  671 

10  Il=IA8S(l-J)  672 

I2=Il  673 

20  IF(N4.EQ.i.)  GO  TO  120  674 

I2=J  675 

GO  TO  IQO  676 

120  IFdl.Le.KFOURI  GO  TO  100  677 

ALa=C.  676 

RETCRN  679 

100  IF(L.lE.JI  go  TO  110  660 

ETA=1.  661 

IFd.EG.J)  £TA  =  a.  662 

110  GO  TO(d. 12, 13.14,15,161.1  663 

11  Rl=Il**2  664 

GO  TO  17  665 

12  R1=J«*2  666 

GO  TO  17  667 

13  Rl=2.*Il*J  666 

GO  TO  17  669 

14  Rl=(2.-ETA)*Ii**2  690 

GO  TO  17  691 

15  Rt- (2.-ETA)*j**2  692 

GO  TO  17  693 

16  IFd'J.tT.OI  ^TAs’l.  694 

Rl»-2.*tTA*J* II  695 

17  IF  (lL.EiJ.I)  12  =12*1  696 

ALa=Ri*ff<JP,l 2)  697 

RETURN  696 

ENO  699 

SUBROUTiNt-  RSTG  (R,S,T,G,JF«XNXX,H1,NJ,NM,NF,LN,NRHS(IR»0£)  700 

C  LN31  FOR  UNLAk  lN  *2  FOR  NONLINEAR  701 

C  NJ  MAXINUH  POINTS  IN  HERICIONAt  DIRECTION  702 

C  NN  MAXHON  KFOL'R*!  nF-  MAXIMUM  2,*KFCUR  70  3 

C  XNXX  AXIA,.  COMPteSSION  LOAD  JP-  THE  POINT  IN  MERIDIONAL  DIRECT  7J4 

COMMOn/FOGRIR /<F0UR,K6  ,K4,K3,K2«K1  70  5 

•  COMMOn/GE^.M/AR, 00, H11,Hi2,H22, Oil. ai2, 022,011,012, 022  706 

COMMON/FAGT  CR/Cl,C2,C3  ,CH,C5,C6,C7,Cd,C9,C10,Cll,C12  70  7 

COMMON /FmGT 2/ UL1,0L2, CL3,CL4, OA1,OA2,OA3, OA 4, Od2 , OB3, 08 4, XNI.EXXP  666 

COMMON /PF£S  1/4,1  (10 4  ,5J  ,tTMdi}C,5l,MMPIlC0,5)  70  6 

COMMCN/Pfic-it/  4  7  (idu,5l  ,4ZF  (100,51  .AZPPdCO,  5»  709 

COMMOt,/PkES3/FM  (10  0  ,6  »  ,  XFM  <  lo  fl  , 6)  ,  F MP  (lOO  ,6)  710 

CONMCf./XXLOAJ /XFRES  711 

COMMON/NEmP: /JFS.INXXfX 

DIMENSION  R(M.  1,  11)  ,S  (Kl.Ml)  ,T  (M1,M1)  ,G(Ml,NfihS)  712 


OIMENSIJN  0E(M1,1) 

C  INXXPXsi  rO.  NX  X  ANO  P  AS  KNOHNS 

C  INXXPxsE  FQ^  MIX  AS  IjNKNCmi,  TmE  INITIAL  SOLUTION  IS  NXX=0, 
C  INXXPXS3  SA  :c  AS  2  3UT  THE  INITIAL  SOLUTION  IS  A  GIVEN  NXX 
C  INXXPXS4  FO'.  P  AS  unknown 


C  K6*6*KF0Ui<*a  713 

C  K4»4*KF0UR*2  714 

C  K3»3*KFOUR*2  715 

C  R2»2*KF0UR  716 

C  K1«KFCUR*1  7l7 

C  C9» (NNN/SR) **2  7ia 

C  Cl=C0*Mll  719 

C  C2  =  2.*JC-*H*2»C'A  720 

C  U3  =  2  .•G12*G-)  721 
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c 

C4  =  00*rl22*C9**  i 

722 

c 

C5=Ql4/01i*C9 

723 

c 

C6  =  i  ./(hR*01l»  *09 

724 

c 

C7  =  C9**2/('c;.*nii) 

725 

c 

Ce=A22*C9**2 

726 

c 

C10=C3/2. 

727 

c 

C11=2.*C9*D12 

726 

c 

C12=C22*C9**2 

RC0R1=042/<RR*011) 

RCOK2=C9*Oi2/Oll 

72  9 

00  1  1131, <6 

730 

G (1i,NRhS) =Q. 

0£  (11,1) 3j. 

731 

00  1  Jl=l.<b 

732 

R ( 1 1 , J1 ) 3 j , 

733 

Sdl.Jl)  sc. 

734 

T (Il.Jl) sj . 

735 

1  CONTlNLc: 

736 

JlsQ 

737 

DO  2  ll=K3.Kb 

736 

T(Ii, 111=1. 

739 

J1=J1*1 

740 

R (Il.Jll s-i. 

741 

2  CONTlNlJE 

742 

c 

EQUILIBRIJS  eQU£  TZON  FOR  IsC 

743 

R(1,K3)=J0*M1 l*Qll**2/0ll 

744 

T(l,Kil=2.*qil/ (RR*Otll 

745 

T(l,l)si./(e9**w*011) 

746 

GC  TC<7i  t  7-’ ,7  3,71.1  ,  XNXXPX 


71  T  (i.K3)=T  (.  ,K  J)  ♦XMXX 

Gd.NRHi)  =-  XNXX  •K7P<><JF.1>^XP/?£S*RC0R1*XNXX 
GO  TC  7i 

72  0£(l,l>-i^ZrP(  jP.U-RCOfii 

G  <1,  =*  PR'iS 

IF«LN.tQ.l»  GO  TO  75 
0E(1>1)30E(  1)4ETH(JP«1) 

G  <lf  MRMS)  =G  (4  ♦Xi^XX*eTM(JPtl» 

T  <1,K3»  =T  (i  ,K  tXMXX 
GC  TC  75 

73  T  (i,X3)sT  (1  ,<3)  ♦XMX* 
0£<i,i»=WZPP(JP,i)-SCORl 
G  (1,  NRhSI  =X  PRES 
IF(Uf/.Ef..l)  GO  TC  75 

oe  (1,1  )=oe<  1.  1)  ■»! TM  (JP,1 ) 

Gd.KRriSi  =0  (!,,'(  RPS)  ♦XNXX*tTM(JP,  t» 

GO  TC  75 

74  T  <1,KT)  =T  ii  ,K  ’•  ♦XNXX 

G (l.HSHo) =-XNXX«HZFP(JP.l)^FCORi*XNXX 
OE(i,l»=-l.  . 


75  00  6  J  =  l,sFOUR  749 

750 

»*J>1  751 

T (1,KJ4J» =T (I ,K3tJJ-CE/2.*IS*WZ(JP,H)  752 

S(1,J71I  sS(l,  J»1»-C5*:S-*HZP(JP,P»  753 

T  (1,J  +  1I  =T  (1,  j+i)-IS/2.-*  <C5*HZPP(JP,f1)^C6*>(Z(jP,rt)  )  754 

T(1,K4«J)  =T  (1  ♦ClC'»Ii*WZ  (JP,M»  755 

T  (1,K1^  J»  =T  <1  ,K  li.i)^CiC*IS*WZFP(JP,M>  756 

S(1 ,K1+J» =S (1  .Xl^Jj^Z.'ClO^IS'HZPTJP.Ml  757 


IF(tN.E0.2.  OS.INXXPX.tQ.l »C0  TO  94 
IF(JF.NE.1P  .OR.  J?S.f(E.M)GO  TO  94 
T  (1,K3^J)»T  (1 ,Ko^J) -C5/2.*I S*MN(JP,HI 
T  (1,J»1I  =  "(  I,  J^i»-I5/2.*C6*W'1(JP,  NJ 
T<l,Xw*l)iT(i,if4*J|#CiC*I5*WM(JP,rtl 
G11,N(RmS>  (l.i(RHS»-C6/4.*:S*w«(J?,ttl**2 


178 


9<*  I F  ( i.  ^  .  L  J  •  i  I  111'  !  J  i' 

r  <1,K3«J);T (i  .nJ>J)-C5/2.*iS*Wi(JF,MJ ♦CiO*IS*FM<JP,J) 

T (1 » J  +  1) =r ( 1, J ♦.) -is/t .*  <C5*t in  UP , M) ♦C6*  WM J 

1  ♦CIU*  I3*)(Ff'(  JP  u) 

S<1,  J*H  =3  (1,  j*  .»  -C5*  iS^Mf-P  (jPt  P>-f2.*Clu*IS*FHP<JP,  j) 

T  <1 ,K4»J) =T  <ltK*»J»>ClC*IS«WH(JP,HJ 
T  (l,Ki*  J)  =T  (.  .K  :«-J)  ♦CiO*IS*£TW<  JP,.il 

=  tKl*J)*2.*ClC*IS*rti1P<JP,M> 

G(l,r4PHS)=G(l  tNr^HS) -C  5 /2.*  IS*  (WPCJP  ,«)  *£.7  H  ( JF  ,  H)  ♦HUP  (JP  ,m**^) 
3.-C6/<*.*:S*  (HI  (JP,  M)**2)^Cie*Ii*  (WM(  JP,M)*  XFN(JP,J)  ♦£?«(  JP,11|* 
2FM(JP, J» ♦3.*HMP  (J?,M) • FMP (JP, J) ) 

6  CONTInuF 

C  EQUILIb^lUn  l3uATI3N3  FOii  I  =  l«  2»  ,  »  ,  »»  t  KF  OUR 
DO  3  11=2, <1 
1=11-1 
IS=I**2 
IS2=IS**2 

T(I1,1)=-C6*I  i*  iZ  (JP,  lU 
T(I1,K3»  =-C5*  *S*hZ<JP,IU 
T  (11,11)  =Ci,':  S2 
T (Il,Il»K*-i) =-Cft*IS2 
T  (I1,I1  +  k;-  1)  =-C2*IS 
Tdl.Il^KH-l)  =C3*IS-1./RR 
R(Il,Il*|<3-i)  =C1 
R  (Il,Il>K<,-il  =-<311 
E1  =  C7*I3*hz  (JF,  id 

GO  TO  (76,7  7,  Ze,76)  ,  IHXXPX 

76  T  (I1,I1>K3-1I  =T  (Il,Il+K3-l)  ♦XNXX 

6  (II  ,KRMS)  =  -XNKK*HZ  FP(JP,  11  »-i«COR2*IS*XNXX«  HZ(JF,Xl) 

T  (II,  ID  =T  (I  1,  III  ♦RCaR2*IS*XNXX 
GO  TC  651 

77  Ot  (li,,.)  =WZ  FP  (JPfl*)  ♦f*CCR2*IS*WZ(  jP,Ii) 

IF  (LNiSQl.l)  GO  TO  S3i 

Oe(ll,l)=DE !I li l)+ET«(Jr , Il)^«C0<2*IS*HM( JP,Il) 

G(Ii,»(RH3l  =  G(  II  ,NRHS)  ♦XHXX*6rN(jP,Ii)  tRCORZ^IS^MH  (JP,  U  )*XNXX 
T  (Il,Il»K5-  1)  ST  ( II,  I  l»K5-l>  *XMXX 

r  (ii,ii)=r( :i,ii)>RcoR2*is*xNxx 

GO  TC  851 

78  T(Ii,Il’-K5-llsT(Il,Il^K5-l)  ♦XWXX 
Dc<Il,li  SHZ  FP  (JP,  ID  ♦RCCR2*  :5*HZ( 

T (Ii,:i) =T( II ,Ii) ♦RC0R2«IS*XNXX 
IF  (LN.£a«l)  00  TO  8  51 

G  (Il,t)fiH3)sl,(  Ii,NW(3  )  ♦xyx)(*£TM(JP  ,  1 1)  ♦RC0R2*IS*XHXX*HM(  JP,;.i) 
Ot  (I1,D  =C6  (1 1,  l)+eTr.(JP,  ll)>RC0R2*IS*HM(jP,li) 

831  CONTI.'.U- 

I!- (LN.t  ).2.  OR.INXXPX  .to  .UGO  TO  ICU 
IF(J?.n_.IP.OR.JPS.NC.I;.)GO  TO  134 
r (II ,1) =T (i 1, :) -C6* IS*M^ ( JF,I1) 
r (li ,K j I =T( II ,KJ)-C5*IS*HM( jp,Il» 
tl=C7*Io*(Hn(JP,Ii)  ♦hZ(JP,ID> 

E2  =  C7/2.*IS 
1 3=t  c*Hrt  (  JP  ,I  1) 

104  IFdN.ca.D  GO  TO  60 

r(Il,l)=T(Il,l)  -C6*I5*wfl(J?,Ii) 

T(I1,<5)  =  T  (Ii  ,K3I-C5*  IS*hH(JP,I  J) 

Tdi.Il)  =T  Cl*  ,I1)-IS*(C»*E.TM(JP,1)  ♦C6*HH(  JP,i)) 

£l=C7*I5*(Hn( J?,ll)>wz (J?,I1) ) 

E2=C7/2.*I3 
E3  =  £2*Hfl  (jo,i  II 

Gdl,NRHS»  =0(  11  ,K*«S')-C5*IS*eTM(JP,  l)*HH(  jp.lii 
1  -Cf*lS*wi(j=,ii*w;i(jp,iD 
60  DO  (.  j=l,(;FCUR 
JS*J**2 
Msj»* 


I 


179 


^97 


T  ( Ilf  j  *:  t  =  r  <i  1,  jf  II  ♦£!  j?.H» 

lF<tN.Ca.l.>l.«C.XMXX.>)(.£.C.i)CO  TO  k 
IFitN.ta...  AnJ.JP.nE.lPIGC  to  4 
IFCLN.Ca*-'*  TO  4 

T  <Il.J*i»  =T  II 1,  J*1)*E1*JS*W)|«JP,M) 

TlllflU  =r  III  ,1*.)  ♦E2*JS*UK<JP»H1*IMH|JP,M>^2.*WZ(JP,M)» 
G(IlfNRHS)  =G(  Il.NtHS)  ♦El/c  .  (JP,  HI  ••  2»£5*  JS*MM  |  JP,  »1) 

*2.  •MZIJPfM)  ) 

4  CONTIMt 
00  5  J=l.<2 

T  -n  XI  ♦CIC*  (ALaiI.J«ltUZ,JP«NJ.NW*l*l>  4- 

lALB  Ilf  Jf4<<lZf  JPfNJ.NNfl.l)  I 

TIIlfKl»JI  =T(  IlfKl^JI  ♦Cl^;•IALfa(ItJ»2,H^PP,JP,^IJ,lllW,l,l)♦ 
l  ALillfJ.SfMZPP.JPfNJfHil.l.lM 
SIllfKl-fJI  =S{  IlfKl^JI  «ClO*  lALdllf  JtS.MZPf  JPtNJ,.MU,l,l)«' 

1  ALdi;f  Jf  6f  HZPf  jPfWjfMflf  If  111 

IFILM.cO.2.  OR.IMXXPX.bO«l>GCi  TO  107 
IF (JP.NE.LPIGC  TO  107 
IFUFS.NE.I  ♦J^IIGO  TO  10ft 

T  IIlfK4''J)=  T|  ;ifK4*JI*Cia«AL3<If  JflfWHf  JPfMjfNH.lfil 
ICO  IF(JF3.r|£.:  A3Sl  I-JI  >11  G.^  TO  107 

T  {IlfK4'J>  =  TI  XI  .K4*JI*CiO<AL8{I.Jt4«WI«.  JPtNJ.NU.1,11 
107  IF ILM.Ea.l)  GO  TO  5 

T  (IlfK4>JI  =T  I  II  ,Kh>J)  >ClQ*  I  ALodf  J«  If  HMf  JFf  NJf  NHflf  II  > 

1  ALBIIfJ«4f><r4.JP,iyjfMWf^,lll 
r  (IlfKl>JI  =  T<  II  fKl>J)  >CJC*  IAi.aiI,Jy2,CTH,  JP,NJ.NU.l,ll> 

1  AL  6  1 1  f  J  f  3  f  ET  Nf  JP  f  NJ  f  N|i4  f  1  f  1 1 1 
SIIlfKl>J)  =S(  IifKlU)  >C^4*(AI.8II.J.3,HHPt  JP.Uj«NWtl,ll> 

1  ALaiIfJfO,W(9Ff  JPfNJfNWfifil) 

GlIl.NRHSisGI  II  .WfW51  *Clij«  I  lALaill.JflfHHf  JP,NJ,MW,l,ll> 

1  Aid  llfjf  ff  WMfjP.AIJfNWflf  1)  )*XfH|j3,j>+  Ut3  IIfJt2f£TM,jP,NJ,NW, 
21tl)  tAL6lIf  Of  3.€TH,JP.NJf  >JW,i,ll|»rH{JP,J|«  lAUSlIfJ.itWMPyJPWNJ. 
3  NMflf  It  dldllf  Jf  ftfWHPf  iPfNJf.'4W,i,il)*FilP  UPtJII 

IFlIJlfOT.KFOUR)  GO  TO  ^0 

TIIliIOl*.)  =T  lllf IJl>ll>CiO*(Al3IIfJ,l,XFH, jP,NJf4F,2f2ll 
T  (Il,l;j*IJH*T(Il,K3>I  Oil  •»Cia*ALP<I,j,2,Ffi,  JP,HJ,HFt2f2) 

Sdlf  IJl  +  f.1  sS  II  If  IJl>ll>ClO*Ata<If  J»3»FMP,JP,NJ,IIP,2,tl 
ao  iJ2=iAas<i-j) 

•  IF liJZ.GT.KrOURI  GO  TO  5 

T (Ilf  1 02*1 1 =T  II l.IJ’>ll>Cia*Al6II, J,4fXFH,JF,NJf MFf 2,21 
T(IlfK3  +  lJ2)  =  T(Il  fK3>I  J2I  +ClC-»Al.B(I,J,5,FH,  JP,MJ,MF,2,2I 
S (IlfXJZ**) =3  II  If IJ2*11>C10>Al9(I,J ,6 tFMP , J F,NJ,  WF , 2, 21 
$  COnTIiUOE 
3  CONTINUE 

coNPMTiaiiiTy  Equations  fok  i^if 2,f t»,,2KFcuft 

E1*C1U  /2  . 

I2=K1>1 

I3»I2*K2-i. 

00  7  Ilsl’flo 

I*ll-<1 

ISsI**2 

R(IlfIl>K4-l!l  1=011 
TII1,I1+Xa-Ka )=-lS*Cll 
T (Ilflll =IS**2*C12 
IFII.GT.KFOORI  GO  TO  62 
R IIifIl*Ki-Xi 1=011 
T (IitIl*K3-ki »=-IS*Co>l./AR 
T  (Il,Il-|(i>il  =I3*>2>Ce 
02  00  3  Jl-i.fKl 
J»Jl-l 

TUi,.U*-.5-  -r  lllfJl  +  K3-il-ClO*IA.3IIf  Jflf  wZf.'P.WU.NU,  • ,  - 1  ♦ 
lAta  Ilf  J.4f  JPfNjfNW.  If  1 1 1 
T  IlifJli  =T  I  II  fj  :i  -Ciu-*  (4tS(  I.Uf2fMZPP-JPfMU,Nta,l,li  « 


799 

000 

OOl 

002 

003 

804 

809 
806 
60  7 
606 
009 

810 


Oil 

612 

613 

614 

615 

616 
617 
616 

619 

620 
621 
622 

623 

624 

625 

626 
827 
620 
«29 
630 
661 
632 
666 
664 

635 
66  6 

63  7 

636 

639 

640 

641 

642 

643 

644 

645 

64  6 
64  7 
046 

649 

650 

651 

652 


653 

B54 

655 


1  A  ^  t  :  ,  J  .  I-  •  .  j  f  ,  N  J  ,  ,Si<  ,  1 ,  1 )  ) 

S(Il.,Jll=:5(Il»JA)-(-l.C*  (  It  Jf  3.  MZP«  jr^  ,MJ,  l-.W  v  1  ,  t  '  ♦ 

1  ALod.J.ff.W/r.JP.NJ.Nh.l.lM 

IF(LN.Ca.<..  OS.INXXPX  .Eq.llGO  TO  i09 
IF(jP.H6.tP)G0  TO  iC9 
IF<JPS.N£.I +J-1 ICO  TC  lii 

T{Il,ll  +  |C3-l»-T<Il,Ji»X3-ll  -tl’ttbd,  J,  1.  WM,  JP.NJ.MW.  i,  1) 

111  IF(JPS.lNt.:AeS(I-J)»l)GO  TO  112 

T  (Il,Jl*k3-l>  =T  (Il,Ji*K3-l>-El*AW6(I,J,<.,WM,JP,WJ,NW,  i,  H 

112  IJ3=I+J 
IF<IJi.GT.KFOU(HGO  TC  113 
IF (JP5.Ni.J+l>GO  TO  *15 

T  <:i,Kj»IJ5  l  =  r<Il,KT,'»IJ3»-€l*AtB  CI,Ji2,  WM,JP,NJ,NH,2,1I 

113  IJ3=IA55(I-J> 

IF (IJ5.GT.XFOoR»GO  IC  1C9 
IF<JPS.1U£.J*1)G0  TO  129 

T  (I1,K5»IJ3  )='r(:i,kodJ3»-£i*ALB(I,J,5t  Wlf,  JP,T«J,  NH,  2t  1) 


109  IF  (LfJ.E(X-.t  60  *0  9  656 

T  (II,  Jl*K3-:i  =T  (ll,Ja  +  k3-l>-tl*<ALe<I,  (,l.Hh,JP,l*J,N«,l,H*  657 

1  ALB  (I,J,9,WN,jP,f(J,Kw,i,l)  )  656 

T  (li,  Jll  =T  <  II  ,J1) -£!*•< Ale  ( I. J,2,tTM,JP,WJ,NW,a,l)*  655 

1  ALB(I  fJ.B.ETM,  JpiNJ,  "iW.i,!))  660 

S  (11,11)  =5(ll  .J  .J-£i*(A(.e(I-J,5,K#kf,jP,Mj,NW,l,i)<-  661 

1  ALB  (I  ,J.6.MtP. JP,MJ,MW,i,i))  662 

G  (Ii.NRHS)  =C(  Z1  .NRHS)  -(!«  (  (  AL6(I,J.  l,Mn,JF,NJ,Nk),  1, 1)  663 

1*  AL  o  (  i  ,  J  ,4  >  •<«  ,  J  NJ,  66h 

2NH,  i,i  I  (  -ET.K  JP,  Ji)  +  (Ati  (I  ,  J^,2,CT-<.  JP.NJ,  NW.l.l)  ♦ALB  (I  ,J»5  ,ETii,  e65 

5JP,NJ,  Nw  ,  :  ,  )*W1  (JP,  J  1)  ♦  { Aue  <I  ,J,5  .WMP,  JF,  MJ.NW,  1,  1)  ♦AL&d  tJt 6«  6  66 

4WMP,JP,RJ,IH«.  1. 1)  )*W.1F  (JF,  Jl)  )  66  7 

IJlsl+j  o66 

IFdJl.GT.KFQLS'  GO  TO  65  869 

T  (Il,I  Ji  +  -  )  =:  (I  iJi^l  )-£!•  (AIB  (I  ,J,l,tTH,JF,^JJ,  MW,  2,1)  )  670 

r(Il,H3»IJl»  =  r(  litlO+lJD-ei*  (ALB(I  .Jt2*WH,  JF,NJ,NW,2,1))  671 

S(Il,IJl  +  l)=S(:j.  IJl>l)-£l*At8(ItJ.3,krtP,  JP,i.J,MW,2,1)  872 

63  IJ2  =  IAi3S(i-J)  873 

•  IF(IJ2.GT.KF00R)  GO  TO  9  67A 

T(Ii,IJ’  +  *)  =T  ( Jl,  :J2>1  )-El*Alc<I,J,4fETfl,  JP,NJ,MW,2,1)  6  75 

T(I1,K3*IJ2)=T<  J2)-ei»AL3(I,  J,5,  UM  ,jF,Nj,|riH,  2,  1)  676 

S(Ii,:J2*.)  =S  (l:,IJ2  +  i)-ElMl.B<I»>»»B,W))?,JF,NJ,)Jw,2,l)  877 

9  CONTi.-.Oe  876 

7  CONTINOf  679 

R£TLi%lW  660 

END  881 

SUBPCuTIN.  60  U')  OR  (dS,  3T,  3  G  ,  Ifi  ,  XKXX  ,  LS  ,*1 1,  NJ  ,N  W  ,HF  ,  L  N,  ,NRHS  lOE)  862 

COliPC.i/F  COR  I-i.  /(CFOLR.Kn  ,K4,K3«  K2,K1  665 

COMMCN/'pR-5l/«M  (lOu  ,5)  ,fe  T  h(  1C  C  ,  dl  » <<  MP  (1  OC  ,  5  )  86*. 

C0Mrt0.N/5R..S2/w7  (.3J  ,5)  ,H2?(  IC  C  ,  5)',  AZFP  ( lO  C  ,  5)  885 

COMMO../PP-33/F  :1  (^00  ,■;  )  .XFP  ( lo<.  ,6)  ,=  MPdCO  ,!»  )  686 

COMPOiv/GL'.fl/Ag.OO.Mii  ,«12,H22  »0il.ai2»'a22  T01i»D12.a22  887 

COHr‘C.t/FA^T2/01.J,  0L2  ,  J,.5,Ci.O,  0A1,0A2,  JA5,  OA  0, 032 . 0\3  5,D8  4.  XNItEXXP  368 

COMPOin/FhC  TC\  /Cl,  C2,C5  .CA,  C5,  C6,C7  ,  C8,C  9,  Cl 3 •  C*1  ,C1 2  669 

C0MM06/f/ENPT  /JPS  ,INX  xpx 

OldckSION  B5(IM  ,Ml),aT  ('li.'ll)  ,BG(hl,Ni?NS)  ,0£()tl«l)  e90 

C  80UNCAFY- C  JNO:  TlOf.S  c 5 *2 (  .3 T* ZsoG  691 

C  LS=1  FOR  Sic.  v(=MXsNXY=(Sfx  =  0  .  692 

C  LS=2  FOR  SS2  w =MXsNXY=0=g .  693 

C  LS»3  FOR  55j  W= 'IxaVs.'tX  =0 .  69*. 

C  LSa4  FOR  Si4  M  sMJIsV  =(lsJ .  695 

C  LSaS  FOR  CCl  M  =  W,  X  =  N X Y  =.,X  =0  .  696 

C  LSS6  FOR  CC2  W=W, X=NX Y sU=3 ,  o97 

C  LSa7  FOk  CC5  4sw ,  x  =  tf  =t<x  =  0 .  698 

0  I5=r  FCR  ,;Cr  .)=W,X=V=U  =  0.  699 

C  LSS9  Ff-  --  L  i.C.t  ;JX=NYYsi'.X  s^1XsO.  900 

C  LSSIU  FOR  ir-tTRY  NX  Y=(Hxsk  ,X  sysC.  901 


181 


C  LS=ll  t-Of  f.«T  -ETSY  rJiX  =  MX iW  =V  =  0.  402 

C  OJ»LFA=  (i  J  •  C  .  *Vi.AMC)-Jfl«l**2  903 

C  01.1  =  DO*  ( 1.  ♦KrlOX»C<**2*XLO«tO*  <1.  ♦rvAMO-XN!**’)  ♦la.  /  (Xrt**2*0ii.FA>  >  90(, 

C  OL2  =  00»•XN;•(i.♦EX♦EY•yLJMC*XLA^'O♦12./^XH••2•0ALFA»J  905 

C  DL3=«.X*xlA(1D*  I:  .  ♦XL  AMOI /0-lFA  906 

C  Ol.4  =  -xNiXgX-‘XI.«li'1/OALFA  907 

C  OAl=(l.*VlAiij)/(QA^FA*iXXF)  906 

C  OA2  =  -XNl/(j-Lr-»«£x*P)  909 

C  OA3=- (1. ♦XLAMJ) -EX* XLAMC/CALFA  910 

C  OAi.  =  XNI*EX*vL»Mt)/C-lFd  911 

C  DaZsll.  +  xldt-.^j/iOAlf  A^EXXP)  912 

C  OB3sXNI*£X-»/L  AM  0/ OALFA  913 

C  064  =  -I1.+XLamO)  ♦tY*rLA''0/0AtFA  91<i 

C  K6=c*KF00U»2  915 

C  K4=(.*KF0Uft*2  916 

C  K3=3*KFJUfi*2  917 

C  K2=2*I<F0U«  916 

C  <1=KFCU«-H  919 

RCK=1. 

C80T  =  <D.-OL<**  01  2/0111  )/ (OU l-0L4*ail/011> 

C  CORSi.CT..O,  4.9  60  GA  TcCh 

IF  (LS.Ea.ll)L.S=3  92Q 

00  1  11=1. K6  921 

BG(Xl,FRh.>)  =C  .  922 

O£(Il,l)=0. 

00  1  J1=1.K6  923 

aS(Il,J>t=C.  924 

BT(I1,J1)=G.  925 

1  CONTl.a£  926 

IF(LS.EQ.IU)  00  TO  866  927 

IF(l.S.GT.dl  GO  TO  luC  926 

00  2  11=1, Kt  929 

2  8T(Ii,H»=l.  930 

IF(tS.L£.4.Ji<.t.S.GT,&l  GO  TO  100  931 

««8  J=0  932 

00  i  11=^3, K4  933 

jsj>l  934 

3  asdl, J»  =;.  935 

100  IFCcS.GT...)  GO  TO  cOu  936 

9T(K3,K3)=1.  ,  957 


IF(lNXXF<.6a.l.0P.INXXPX.cQ.4>G0  TO  77 

OE  <K3  ,U  =-C60T*RCK 

8G(K3fl)=U, 

GO  TO  76 

77  BG(K3,:,RBS)  =  C60T*XNX.X*R.CK 
.78  CONTINUE 


K31=K3xl  938 

00  Xf  13=K31«lt4  939 

BT(I1,I1)=0U  940 

BT  dl,  Il*K4-k3l  =0L4  941 

IF(L$.E(3.1.0k.L3.E0.3>  go  TO  4  942 

I=Il-K3  943 

BT  <11,  Il+Kl-llol  *gT<Itf  Il^|Ci-'<3>-I**2*C9*0L3  944 

4  CONTINCI  945 

200  IF(LS.NE..:>  GO  TO  300  946 

El=0t4/011*Ci0  947 

BS(i,tC3»=OLl-OL4/Oll«(aii  948 

00  6  J1=1.KF0UR  949 

JS»J1*»2  950 

BSd,  Jl».>  =of  ♦fl«JS»W7<;.V,3lX’l»  951 

BTd,Ji»:)  =^T  (1  ♦ei*jS*w7P<IN,  Ji^i)  952 

aTd.<l*J.l  =»’ (.,«!♦  J.  »*C1C*JG*M7P<  IN,J1*1)  953 

IFCcN.si  .•  .''i.  TO  5  954 

3S(i,.Ji*ii=8S<i  ,J1*1>  ♦61«J3*4K<  J|8,  J141)  955 
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P  T  ( 1  ,  ( 1  -  i  t  -  ,T  a  ,Ji*i  )  ♦El^JS^WM?  (IN,  Jl*l«  956 

BGd.NRNS)  =bC  11  .NfiMS)  >£l*JS*WM<IN.  957 

5  CONTINUE  95e 

00  IZ  Ii=2iKi  959 

1=11-1  560 

as  <  lit  )  =  6S  (Il,Il*K3-l)  ♦OlI  961 

BSdl,  Il+|«»-1  »=B5<  Jl,l|«K4-a)  ♦0L4  962 

00  12  J1=1,K2  963 

BTtlif  <l*Ji)=0T  (I1,K1»J1)*01C*(hc6(  I,J1,2  INt  N  J  ,N  W,  1,  1)  ♦  9oh 

1  ALB  (1 ,  JltSiMZP  ilHtNJtNW't  It  1)  t  965 

12  CONTimiE  966 

300  IF(LS.ME.9)  GO  TO  400  967 

El  =  OL4/Oll.*-<m  96b 

ST<ltK3)  =OI.4-E*  969 

8S(K3,Ki)=Dll-^l  970 

El=CL4/tDiL*FR»  971 

6T{lti)=-ei  972 


IFflNKXPX  .t.a.l.Cfi.INXXFX.EQ.4>GO  TO  87 
OE(itl>=-<0  .-Di.4*OA2/Oll)*f^CK 
Ot  (K3,l)  =WZP(lNtl) 

03  (KJtl)  =-ei 

IFdNxx^X  .EQ.  3»  6S(K3tl.^=X^<XX-gl 
IF(l.N*ca.l)  GO  TO  83 
a3(Ki,l»=XNXX-ei 
03<<Jtl.)=*w  flpdNtl)  ♦0e<K3tl) 
aC(K3)l>  =B(i|k3,i)-W/lP<INtH*xaxx 
GO  TO  iS 

87  BS  (X2,ll  =XWXX.-£l 


BG(<5tNaPS) =-XNXX*W/P(:Ntl»  974 

BG<1,W««S»  s<0.-0t4*OA2/0il)*XMWr*RCIl 

88  COMTINue 

El  =  0L4/3il*ClC,  975 

00  e  J1  =  1,<F0U8.  976 

JS=Jt**2  977 

ST(ltJ4  +  il=Brll  tJl*^)  ♦£l*JS*wZ<INt  Jl*:)  97b 

8T  (K3tUl*i»  =8T(K:,  Jl*l  )♦€•!♦  JS**|»ZP(  I  MtJl*l>  97  9 

8S{K3t  Jl  +  1)  =ftS(K3t  Jl  +  1  »*gl-»JS*VZ<INt  Jl*-1)  98 C 

ir(LM.g8L.i>  GO  TO  €  981 

BT  (itJl**t  (t  tJl  +  1)  ♦ei*JS*wrt(IHt  Jl+H  982 

BGdtIiRHS)  =B&(1  tNRHS)  ♦£L/2.*JS*l#H(INt  Jl*l>**a  983 

BT<K3t  Jl-1)  =8T(X3t  Jl»l)+Ei*JS“V(«P(It9tJl-H>  984 

aS<K3,  Jl*l)  sSS<K3t  Jl»l  )^ei*J5*Wn(IHt  Jl*ll  985 

BG(K3t  f9«i«kJ)=®G<a3tNRHS)*Cl*JS*H»HIKt  Jl+D’kMPCNt  Jl*l>  966 

6  CONTINUE  987 

00  13  Il=2tKl  986 

1  =  11-1  989 

ISsr^^Z  990 

aT<Il,tlbK*-l'=0»-l  991 

BT(iltIl)--15*C»*OL2  992 

BT<Iltii*H4-l)  ^)t<«  995 

8S(Il*k3-ltU*K<i-l»=0L4  994 

aSCi^XJ-Ldl  ♦I<3-1»=DL1  995 

IF(INXXlPX.Eat2.0R.IWXXPX.£a.3)(^  TO  97 
aS{Xt»K3-JtIl )=-IS*C®* (bt2*2.»00*<l.-XNI» •♦XBXX  996 

BG(Il+K3-lt8RHS>=-XWXXV7P<IN*Il»  997 


GO  TO  li 

97  eS(Ii«K3-if  li  l=-IS*C9»  <PL2*2.»00*  (l.-XNT»  » 

iF(jH»rpx.EA.3»  BS(ii«K3-itii>  =Bsai+K>i,ii>»xnxx 
0£  <Il*K3-lt  U  =WZP<INtIl) 

IF(th;.E(3.l)(iO  Tfi  13 

OE  (1 1*K3-1. 1»  =OE<IlflQ-l  t  II  *wP<INt  II I 
IFiINXXPX.rU.  2l  eS(ll«X3-ltIl)  s^dlHCJ-l.lD-fXNXX 
BG(Il-K3-:t  1)  =3tf(Il+Ka-l,  1) -X|i/XX*HHr(  iNtlll 
13  CONdNUg  ^98 
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1*00  ^99 

I3=lc*KP-l  1000 

I4=K3-1  13tl 

00  7  Xl-icf  13  ijoa 

lsll-<l  1003 

IS=I**3  100<* 

GO  ro  (31,X?.  ^3«^^,Xlt^6.£7.^<*^i.30)«tS  1006 

21  BS(IltKl«^]>=l.  1006 

8T(I1+I4,K1'H  )  =  1.  10«7 

GO  TO  7  1006 

22  BS(I1.K1*I)=1.  1006 

BS(Il^l4,K4tI l=0S2  1010 

00  a  J1=1.K1  lull 

JsJl-1  10*2 

BS ( 11+ 14, Ji)  =  BS (1 1  +  14, Jl)-C40* (AL3(I , J.l,  WZ  ,H0,NJ,NM,1,i» ♦  1013 

lALB  (1,J.4,w7,  lN,NJ,f<W,l,l))  1014 

8  CONTInO-  1015 

IF  ( I  .GT. OUR)  30  TO  7  1016 

BS(  Ii+I4,k3»I )=es(Il  +  I4,K3*I» ♦oes  1017 

BS  (ii»i'4,i  +  ii  =es(  li»i4,l*i)-i3*C9*0-J4*i./RS:  luia 

GO  TO  7  1019 

23  BT(Il,Ki+i) =1 .  tG2Q 

BT  (  Il*I9,s4*I 1  =  062  lu2l 

IFd.GT.K-'OUR)  GO  TO  7  lu22 

ST  ( 11+14, K3*I  l  =  1023 

GO  TO  7  102<. 

24  BT ( :i, Ki+:) =- IS+Ca+OAS  l-iS 

BT (  II, k4  +  :)  =D62  1026 

BS(Il  +  I4,Ki.+:  ts-IS  +  Ca*  (0«**2. /<  (l.-XMI)  •£  XXP)  >  10  2  7 

8S(11+I4,K4+I  >=OB2  1026 

00  9  J1=1,K1  1029 

JsJl-1  1030 

BS<Il+I4,  J1  »=BS  (11+14,  Ji)-ClO*(AtB(I,J,l,  WZ,I»7»MJ,NM,i,i»  ♦  1031 

1  Al.d(I,J,4,WZ,IM,MJ,N>l,i,in  lu32 

9  CONTINLO  1033 

IFd.oT.KrOORl  GO  TO  7  1034 

8Tdl,M  +  :i  =06»  1035 

8Sdl+I4,<3+T  l=Dft3  1036 

8Sdl  +  I4,:  +  -»  =eS(  Il+14,:+l)*IS*C9*J34+l./RR  10  37 

GO  TO  7  1036 

26  as  (  U,  Kl  +  n  =*  .  1039 

8  S  <  1 1  + I4,K4Ti  I  =  0B2.  1040 

IF d .GT.KfOUR)  GO  TO  7  10+1 

83  dl  +  I<(,Ko+:  MCE3  10  +  2 

GO  TO  7  1043 

27  8Tdl,Kl+TI  =1.  1044 

BT  dl  +  I4,K4+I  l  =  aeZ  10  +  5 

IFd.GT.KFOURJ  GO  TO  7  10  +  6 

STdl  +  I4,Vo+:i  =  0B3  10  +  7 

GO  TO  7  10+6 

26  8Tdl,Fl.  +  i)  =- IS*C9*t>*2  10  +  9 

BTdl,K4  +  i)  i050 

BSdl+I^,*:;  +1  J=-IS<C9*<0A2+2. /<(l.-XNI»*tXXP»  >  1051 

BSdl  +  l+,K4+i  >  =  082  1052 

IF  d.GI.KF OUR)  GO  TO  7  1053 

aTdi,X3  +  :)  =aB3  io5+ 

BSdl  +  I4,K3+;  )  =  0f3  1+55 

GO  TO  7  1056 

30  as  di,  Ki  +  r  I  =; .  1057 

8Sdl+I4,K^+:  1  =  36  2  1  0  5  6 

00  1+  J1=.,XPCUR  1059 

BT  d:  +  I4,  JJ+:  )=^T  di  +I/t,J  I  +  D-Cio*  (ALc  (I,.):  ,2  ,«(ZP,  I.V,(4J  .r0w,l,i>+  1060 

lAL3lI.Jl,i,i>Zr,:N,r(J,NN.l,l))  lOel 

14  CONTi.'iUt  lOH,’ 
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MICROCOPY  RESOLUTION  TEST  CHART 

NAIIONAl  HURIAU  Of  <;tANnAROS  I96<  A 


T 


ia6i 

7  CC'M..iUi  lli64 

666  RLrUK.4  1065 

£NO  1066 

SUanOUTlNf  CO£FF(£X*fcVtXLAMO«VLi.HDtRHOX.RHOY.CLASI  1377 

C0H»'0N/SL0M/fi6,00.Hi:«Hl2>H2C«ail«Q12>Q£ktOll*Ol£.02£  1375 

COt1fO;4 /r  a:  TZ/OLI,  012  «DLl3tOL4*pAl«OA2«OA3,OA  4,012, 08  3*064.  XrtI.EXXP  137  9 

C0.iK0.N/0INTG/f4caHT.Hl  (SCO  I  13SU 

COHnON/FIOFR/0' LTA.ALl,GAl.AL2,dT2,CA2  1331 

C0nK0(/KCURlR/<F0CK,K6,K4,Ki,lL2,Kl  13<i2 

C0NH0N/f;;:T3/0LS,)(L,XM  1363 

K6sfc*KF'3^<*2  133h 

IC4»4*i<F  jU-J*2  1365 

KSaO^KFOox^Z  1366 

IC2«24KF0Urt  1357 

K1«KF0UR«1  1355 

XN2SXM**.:  1369 

XH2sXH*-»2  1390 

OAUf  A=  (i.,XLAMO)*  (l,-»rLAM0»-XK2  1391 

00a£LAS*XH**3 /( 12 .♦ <1.-X«2l »  1392 

£XXPsELAS»XH/ (l.-XI(2>  1393 

Hli=l.  ♦R»^0X4l  2.  •tX**£4XLAh0«<l.*YLAf10-XN2)/  (Xh2*DA».FA>  1394 

H22ai.  ♦RH0Y4l2.»c.V**2*YlAri0*(1.4XLMM0-XN2)/  CKHZ^OALFAJ  1395 

H12si.412.a)*41*eX4tY»XUhC*YLArt0/IXn2*aALFA)  1396 

OllaXMl*£X*Xt.A«tyOAlF«  1397 

Q223XNl«fc.Y*YlAHC/0ALFA  1395 

Q12=-fl .9*( (1. »YLAMOI*t  X*XlA«C»(1.4XuAF0)*C»*YLAM0)/0ALFA  1399 

011a(l.*XlA.‘l0  1/ (OAwFi«*i.XXF)  l.,OC 

022s<1.4YLAM0l/(0ALF.*iXXF>  l«ul 

Ol2  =  l<l.*XLAriO»*(1.4YL4t»C»-XM»/(DALFA*£XX?*(l.»XIIU)  140  2 

OLiaOO«Hll  1403 

0l.2<00«xni«  <1 .4  (£x*c  Y«XlAI98«vUf(O*l2.l/<XH2»0AlFM> )  1404 

0t3sS.X4XLAM0*  <i.4YLAMJI/0ALFA  1405 

0L43«XM4:^X«XLA('O/0ALr  A  li,06 

OC5sOO*H22  1407 

OAl3(1.4Y|.AHi»)/ (OALFA*EX)rP>  1406 

0A2x«XNI/(0ALFA ^EXXPI  1409 

0A33*(1.4VLAI(ip)«ex*XtAr0/CALFA  IhIC 

OA4sXNI<EY*YtA«0/OAl.FA  1411 

082s<1.*XLAmu  )/(OAlFA*fcXXF»  1h12 

OB3axNJ*“X*XtAf10/0Ai.FA  1413 

OB43-C1.4Xt4MM»»tY*YtMKO/OALFA  1414 

»1I(H*2*K6  1415 

HI  (NiafOn  32«K€  1416 

NEQlsNEQFCT-1  1417 

00  10  I1s2.M£Oi  1415 

HZ(I1):K6  l4l9 

10  CONTXnue  1420 

OELTAs)Cl/(NnPOr-i)  1421 

ACl«-l./(£.*Ott TA)  1422 

6ALsi./^^.*0t^.T^)  1423 

AI.2s1./(0^LTA«*2)  1424 

BT2«-£./0-i.T4*42  1425 

CA2*l./0t(.TA4*2  1426 

RETURN  1427 

ENO  1425 

SUBRCbTINt  COEFNNiHHHI  1429 

COMH0N/GE0i/8R,O0,Hll,Hl2,H22,Qli,O12,a2£,ail,O12,Oc2  1430 

CO(1HON/FACTOf7/Cl,C2,C3,C6*C5,C6,C7,Ce,C9,C10,Cll,C12  1431 

C9s(NNN7RRI«*2  1432 

ClaOO*Hll  1433 

C2*2.*OOarfl2*C9  1434 

C3a2.-*ftl2«C3  1435 

C4«0C*H22*C9**2  1436 
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C  C  i  *  >  ■  *  fc  •  ‘  * 

C6»l./ jpr* Jll >*CJ 

C«aGe2«C'J**t 

Cl0=09/2. 

Cll  =  2-*iJ  9*012 
C12»022*C9**2 

return 

eno 

SUBKOUTINL  IN  W£  RT  ( N*1 1  m  tC »  H»*IN1»NM2 «OET,  IXPt  20ETI 

OINiNSION  A  (NMl  tC  (NH2>  #H 

OEfsi. 

IXPsQ 

NNsNA 

IF(NN.NE.1I  GO  TO  305 
OETsmI  1.1) 

A  <1.11 =1./A  (I  .1) 

GO  TO'Se^ 

303  00  90  I=i.NN 
90 

00  140  = 

030 .00 

00  112  K  =  1.MN 

I00tio0tii2 
100  00  llO  L'lfNN 

XF(H<b))  1C2. 103.110 
10  3  IF  <ABS  (01  “A^j  (A  (K  tl)  ) )  l<l5fl35»llC 
105  LOaL 
K03K 
03A<K«L) 

BIGAsO 
110  CONTINWi 
112  CO.(TI(lO£ 

IF<0.aQ.C.0*l  GO  TO  t?0 
60  TO  ifii 
170  MRIT£<e.5i2) 

STOP 

502  FCRf'AT  (/.?X  ,"Di  TERfllNANTaC"/) 

160  NEiPs-i'<LD) 

M(i.C»sr(KO) 

.  H|<0)3NEM-’ 

00  ll4  I-itHN 
CdiaAC.LO) 

A(I.I.0I  =  1<14(P) 

114  A(I.K0)=5.00 
A(KC«i<C)  sL.UO 
00  115 

115  A(KofJl3A(KC.  JI/0 
00  135  1*1. HK 
IFd.EI.K^)  GC  TO  135 
00  134  J*1*NN 
TENFsC  (I)*A  (KP.  J) 

134  A(I.J)*A(I.J)-T6<‘1P 

135  continue 
IFdOiT.NE.l)  GO  TO  140 
0£TsoST«bXGA 
lF(KO.Ii(E.LO)i)C’T  *-OcT 

629  IF(ASS(Ui.T)  .LT.l.e^lC)  GO  TO  630 
0£T*OET/l.e*lO 

IXPsIXP*lJ 
GO  TO  d29 

630  IF(A3S<.)6T)  .GT.i.t-lO)  GO  TO  140 
otT=o^T*i.£;  ♦:  i-- 

ixp*;xP- 13 


1>»37 

1436 

1<»39 

14<*C 

1441 

1442 

1443 

1444 

1445 
1067 
106b 
lu69 

1070 

1071 

1072 
1473 

1074 

1075 

1076 

1077 
1076 
1079 
1360 
1J61 
1062 
1063 
1j64 
1085 
1066 
1067 
lud8 
lttb9 
1390 

1091 

1092 

1093 

1094 

1095 

1096 

1097 
1096 

1099 

1100 
1101 
1102 
1103 
110  4 
110  5 
ll(i6 
1107 
1106 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 
1117 
lllb 

1119 

1120 
1121 
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140  CONriNO^  1122 

00  200  IsltMN  1123 

1*0  1124 

150  l*i.«l  1125 

XF(H(L)-I)  ISu.lfaC.lSO  1126 

160  1127 

N(ll*2  1120 

00  200  Jsi.m  1125 

TEHrsAlwtJ)  1130 

1131 

200  A(l.JI*rhhP  1132 

304  return  1133 

ENO  1134 

SUaROcTIMU.  YriV<'UtA.3.Cf>i2«llt!.2tl3.r)  1135 

OZrtENiiON  AaitL2l.6ll.l«61)*CiLltt2>fT(L3)  1136 

IF(N2.CQ.i)  GO  TO  IOC  1137 

00  11  1*1. N1  1130 

00  1C  J*1.N2  1135 

TErtF*0.  1140 

00  20  Ksi.Ml  1141 

20  TENP*TEr1F*«(I  .K)*CIK,J)  .  1142 

10  T(Ji*TbnP  1143 

00  30  J*1«.M2-  1144 

30  A(I.JI*T<J)  1145 

11  continue  1146 

RETURN  1147 

100  00  111  l*i.lNi  1140 

TENPsi.  1149 

00  120  F«i»|tl  1150 

120  TENF  =  7tfiP*3<I  1151 

111  TdMTENP  1152 

00  130,I*1»N1  1153 

130  A  (1. 1), PTC)  1154 

RETURN  1155 

ENO  '  1156 

•  SUBROOTINN  rS  YH  Y<N2f  fll  tAto » Ct  0*  M3»i.ltL2*L3t L4«n  1157 

OIH.4<SiOI«  M  <L  1  U3)  tB  ai«L3)  *C(l.lfL2)  t0(L.2tt3)  tTa4)  1150 

IF(N3.Ea.l)  TO  ICO  1159 

00  11  1*1. Hi  IloO 

00  IG  J*1.N3  1161 

TENPsO.  1162 

00  2C  k:i,H2  1163 

20  TENFsT^NP^C  C  «<  )*0(Kf  J)  1164 

10  T(J)3e(I.J)«TEHF  1165 

00  3u  J*lfM3  1166 

30  A (I«J) *r<J)  1167 

11  CONTINUE  1166 

RETURN  1169 

ICO  00  111  l*i«rtt  1170 

TEHP*0.  "  1171 

00  12C  *(*..N2  1172 

120  TCNP«TE)1P+C(:  .K)*0(Ktl)  1173 

111  TII>*3  IIfi)-TCNP  117« 

00  13J  1*1. N1  1175 

130  A(l«l>*T(il  1176 

RETURN  1177 

ENO  1170 


SuaRJUTIC  VNYNCVlfVE.AtHl.HEtNlvNEtNS.NRtTI 
C  ViatN2)*V2(l,Nl)*A(NltN2l  i 

OIPENSIO^  VI  lltHl).V2fltHl).AIN2tN3)TTfH4» 

00  10  J*1.N2 
TEHPaO. 

00  2C  R*1.N1 

-.Q  r£FF*rEHP*V^  ll.K)PA(K.J> 

1 
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10  TIJt-TKhi- 
OC  oC 

30 

RcTURM 

Er^O 

SUBROUTINE  POT£  OS  t  ZOET  t  NRNS«h AXN»4(*  tBPt  CP  tC  P>PRt  XP«C*rtT  tT  1« 

1  VltMAX£,I<PM ,0:rhtXNXX.LNtMJ.NW,Nf •LP.OP) 

C  HAX2-HAXN*nAX.N 

C  CHANGtC  EV  SWCINNAN  IN  OCT  IBBO  FOR  HARIX  WITH  OP 
C  LP  IS  Tift  CO.L'HN  OF  OP 
C  LP*0  FCR  THi»  REGUlAK  FORh  %(lTHCtT  OP 
C  LP  SUPFCSt  TO  it  GT.Z  ANO  LT  N€QPOT-l 

C  JPS  IS  THt  COlUHN  no.  of  op  CTI  which  THE  TERNS  ARE  NONZcRC 
CChhON/nEwp  T/JPS.INXxex 
COHWuN/CINTG/NEiaPOT.Hl  <500 
COHHO.-i/CO :$</ 1C  1  (  SO  1)  .I2C  (500. 123150 1) 

OIHbNSION  AFC  HAXN.MAXlNI.BFCFAXN.HAXN)  tCP(  PAXN.HAXNI 
OIHENSION  PR<  MAXN.NAXNI.GFihAXN.NRHS) t X P( HA XN.NRHS) 

OlHlHSlOt.  TKriAXN)  *C  (HAXN)  .FT  (HAXNI  .V1(NAX2> 

OIrlEMSCOH  OF  (HAXN,1),EP(S2«1I.VB1(1«52).  vecdtSZI 
C  EQUIVALENCY  (AP(i«l).Vl<l)) 

IF  ILF.NE.l.  AnO.lP.xC.2.ANO.LP.LT.NEQPCT-1>60  TO  70 
WPIT£Cb’.7ll  LP 

71  F0fiHAT<//,2/ ,“LP="«I5f5X,“ANC  ITS  SUPPOSE  TO  Be  6T.7  ANO  LT 

l.NEftPOT-l*M 
STCF 

70  CCNTIhuE 

Ri *  1.  u 

IXFHaG 

ObTHsl. 

00  lOb  lai.NEOPCT 

CALL  ABCG  ( I  «H  mXN,  CP.  BP. Kr«GF,NRH3fXNXX.LK.AfU»MHtNF»LP«0PI 
NsHiCI) 

IFaF.EO.Q.CR.l.LT.YF.E)  GO  TO  OO 
00  4  Klai.N 

4  GFCKl.l)  3GP  <K1.  1)*0P<K1*1)«V61 
•  0  IF(I.EQ.l)  GC  TC  BB« 

NNIMsHIC-l) 

0««  IF(i.EQ.NEQPOT)  GO  TO  599 
NPLUS1<HI  (I  *1  ) 

999  continue 

IF(X.EQ.L)  go  TC  12 

IFiwP.L^.C .0R.1.lT.LP>2)  GO  TO  61 
00  5  Kiai.N 
CO  S  KC  =  1.NHIN1 

9  CP(M.K2laCFIKl.K2)  •Or  (<l,l)*Vdl  <ltK2)«Rl 
Ria-Rl 

61  CALb  YSYNV  CNff  INl.NtflP.BFtCPtPR.NtNAXN.NAXN.HAXN.HAXNtTai 
12  CALL  Invert  (N  .sP.C.HT.rAXN.PAXNtOErfIXP.IOET) 

IF<ICbT.Ne.ll  «>0  TO  640 
OeTHsOET*3e.  M 
IXPH*IXP.IXPM 

IFCABS <OE'n).LT.O.E»l^l  GC  TO  630 

OETH*OtTH/l.E*10 

lXPH»IXPf*.lfl 

CO  TO  640 

630  ZF(A3S(0eTN).Gr.l.E>lCi  GO  TO  640 
0ETM«0£TfH*l.£  ♦!« 
lXPHaixpN*iB 
64F  CONTINUE 

IFCl.LC.KRaPOn  GO  TO  102 
lF(I.<Vc.LP>i)GC  TO  77 
CO  37  kial.N 
no  47  kcai  .NrliNl 


1179 

1161 


1162 

1163 

1164 

1165 

1166 

1167 


1166 

1169 

1190 

1192 


1193 

1194 

1195 

1196 

1197 

1198 


1199 

1200 
1201 
120  2 
120  3 
120  4 

1205 
120  6 
1207 

1206 
1209 
121C 
1211 
1212 
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37  «P(k:  ,  JPS»  =«P<tcit  JPS>-CPCKlt<2»*c»’»<Lii» 

77  CONTINufc 

call  Y7Y  (|sl,PR,aP«AP,NPLU3l*r!AX»i*NAt(N.hAXN,ril 
call  Xt«><ITc.  (cl«PKtNiNPi.k!SltHAXM«HA)(N*ltriAx2«Vl) 
IFaP.Ea.C.O^.I.LT.LPtGC  TO  102 
IF(I.GE.LP«<.I60  TO  3Cii 
IF(l.E(JULP*l)GO  70  29u 
00  6  K1=1.NPlUS1 

6  VBKltKlt  =PR(JPS«X1I 
GO  TC  1J2 

290  call  YNYN  <V82  •V31«PA,NtKFLtSltMAXN«KAXNf.iAXN«MAXN«Tll 
KKS=NPIUS1 
GO  TC  102 

300  DO  7  <l-linNS 

7  tfai(i.K:)svo2  (1 
IFd.td.NEy  AOT-IIGO  TO  102 

CALC  YNY.4  (VH2«V?lf  Pr  (M,  KPLUS1*HAX.S«  HA  XK  «h  AXntMA  XN  .T  ll 
KHS=NPlU31 

102  IF(l.c.C.l)  GO  TO  32 

call  YSvrv  (NHIN1,N<YP  ,GF«CO«XF*N^3*HAXNtHAXN,NRHS*HAXM,T  li 
CALL  YHV  4N«XP,.3PtXP,KRFS»r'AXH«NRHStHAXHiTl) 

IFd.EQ.NCUPOTl  GO  TO  (.2 
IF(LP.Ea«0.nK.I.LT.tP)  GO  TO  90 
IF  d.Gt. LP*2IGO  TO  350 
IFd._Q.LP-»l)GO  TO  360 
VGlsxP<jP3,l» 

VG2=V41 
GO  TC  90 

360  0  0  19  Kisi,H 

19  VG2sVG2-V6i <t.Ki)«XP (Ki,l» 

GO  TC  90 

350  VG1«VG2 

IF<l.e(i.fl(.aPOT«l)  GO  TC  42 
00  21 

21  VG2»V02«»V3i  d,<l)*XP  Ui«l»*Kl 

90  Ir (LP.EOtO .Oft.I.GT. LP-2IGO  TO  l2 

CALL  YSYHY  (NMINI f M,2 PtOP t CFt EPfUKHStPA XNyHAXNt MRWS ,HAXNt Til 
call  YhY<N«EP«6P  tEP,NRri3«:iAXN»WP:HStHAXN,Tl) 

CAlL  XWKlTe( 23(ePtN,NRHS«HAXNfl^HS>ZtHAXKtTll 
GO  TO  42 

32'  CAlL  YnY<NtXP  lEP.GP.  NnFif  t'AX.N«ARHStMAXNtTl) 

ZF(LP.3Q>C  )G0  TO  <«2 

call  Y.1Y(f.  ,3F,3P,OP,f.RHS,MAXK,NRHS,.'<AXN,Tl» 

CAlL  XHRITC(23fEPtNtNAHS«nAXN,r4^HSiI«HAXNvTil 
42  CALL  XhPlTc  (22«XP«N,NRF3«l'AXN«NRn3*ZtHAXr4*Tl) 

ifio  cor4T:NUf 

HEQFOTsiYGQPOT-I'  . 

00  203  K>i«r4E^PaiT 
NK«NEaPOT-K 
NHXHlsnl (Y<1 
Nsrd  (MX^II 

call  XRL«.0(21  tPP>HMIM«N«NAXN,74AXN,NK,HAX£«  vil 
CALL  XRIEAD  1 22  tGPi  MniHl  fTWlM3*HAXHtNRHS»NK«  HAXI«,T1I 
CALL  YSYI9Y  (N,  INi,XF  i GP.PR.XPfNWIS  tRAXItt  HA  XNtNRMStNA  XN  ,7  1) 
IF(HK.»|i.LPt  GO  TO  7to 
VGl*XPfJPS<ll 

74  IF(LP.ia<C.o2.MK.GT.LP*2IGO  TO  92 

call  XAEAO  (23,LP.NHl.li,N||NS,(l9>XM,NRHStl«C.HAXN,Tll 
00  27  Kl«l.iyHIf/l 

27  XP(x;,.)axp(Ki»ll-EP<xi«il«VCl 

92  CALL  XK'  IT3(2  2f  XP,NraN1,I^RHS«f)|llX.4»|4RriS«lll(tl1AXN*Tll 

200  CONTIHIC: 

RETi.Rir 

£NO 


1213 

1214 


1215 

1216 
1217 


Iclo 

1219 


122C 

1221 

1222 

1223 

1224 
1229 
122  6 
1227 
1220 
1229 


1230 

1231 

1232 

1233 
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SuaROoTlNc  XRLA0<^U,6,L^tL^«HltH^,lN0<H3t VVI  1234 

CONHO,n/CDXSK/I21(S01I  (122  (SCI  t  *123  I  Sull  123S 

OIMiN3ION  A  (tll.llc)  «VV<(‘3>  1236 

C  RECOKC  l.iu  (jf  61RECT  ACC&SS  OATA  SET  »jO  IS  RcAb  AKC  ACLUCArEO  1237 

C  BY  R0)4S  IMC  l1*l2  PCRTION  CF  MATRIX  A  1236 

C3»L1*12  1239 

CAt.4  READtlSC^O,  W  iL3t  IKO)  124C 

KL-J  1241 

00  10  N9C4S1.  LI  1242 

00  10  FCC.sit«.2  1243 

tCL=KL+l  1244 

A(NRUW,NCOi.)sVV(KL)  124S 

10  CONTINUE  1246 

RETURN  1247 

END  1246 

subroutine  XMkI  TE  (K0«m  .Ll,L2tHl,H2t  IN0«N3.VV>  1249 

COHKON/COISR/ 121(501) . 122 (SCI I *123 ( 5011  1250 

OII1S.NSION  A  (-lL«M2t  ,VV(M3)  1251 

C  L1*L2  portion  OF  lATnlX  A  13  KKITTcK  BY  ROWS  ON  OIR£.Cr  ACCESS  1252 

C  OATA  ScT  NO  l.N  FiCORC  INO  1253 

<L=0  1254 

00  lu  LI  1255 

00  IG  NC0L3  1*L2  '  1256 

KLaKl*!  1257 

VV(KL):A(NR0w »NCC4)  1256 

10  CONTINUE  1259 

CALk  wRITHS  (N(j,  Vtf,KL«IKO.-l)  1263 

RETURi^  1261 

ENO  1262 


/EOR 

EXAHFLE  1  R/HSjflO  L/fiai.  N*5 
35 •l*3«3fdtl*l 

4•f4•*3•4J^tlJ5uCwut••C•3*l•3 

0.*0.*0..C.*C..J. 

2*2  «E  *16  *  1 • 

I«*5«t0«*l5*  ****9C*  .«(».*6G. 
1«2*2«1 
9*0.1 
1 

EXAMPLE  1  R/I-S53C  t./Ral.  Nx6 

35*1*3*  3 • 3  * 1  *  1 

4**4'**0*J3o*lC5j0uUC**0*3*l*0 

0.yC.»0.*U.*C.*w. 

2*2*2*16*1* 

1**5**0**15*  *5**^0«  *3  3u**60« 
1.2*2*1 
6*0*1 
1 

EXAMPLE  1  R/MsSOw  "»./R*l.  N»7 
35  *l*3*3*Cti*l 

4**4**0*3i>o*lw5*00<fC**d*3*l«0 
0**C**0**C**  Ct«tt* 

2* 2 *2 *16*1* 

1*  *5**0**l^*fX**9C*  *3  CO  **60* 
1*2*2*1 
7*0*1 
0 

/EOR 
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